csdn.net网页代码可见。

mfj 2000-05-02 05:48:00

/expert/index.asp部分代码
<%
username=Request.Cookies("username")
set rs=Conn.Execute("select userid, TopicNum, ExpertPoint, SpeakPoint, Basepoint, BestowPoint from cuser where UserName="&SqlStr(username))
if not rs.EOF then
userid=rs("UserID")
else
Response.Redirect "logon.shtm"
end if
m_type=Request("type")
if m_type<>"" then Response.Cookies("ForumType")=CLng(m_type)
m_type=Request.Cookies("ForumType")
if m_type>3 or m_type<0 then m_type=0

m_search=Trim(Request("MySearch"))
if m_search="" then
m_room = CLng(Request("room"))
if m_room=0 then
if Request.Cookies("search")<>"" then
m_search=Request.Cookies("search")
else
m_room=Request.Cookies("room")
if m_room=0 then m_room=101
end if
else
if (m_room=100 and rs("TopicNum")=0) then m_room=101
Response.Cookies("room")=m_room
end if
else
Response.Cookies("search")=m_search
m_room=0
end if
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>专家门诊</title>
<link REL="Stylesheet" HREF="style.css" TYPE="text/css">
</head>
.
.
.

...全文

133 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

mfj 2000-05-03

打赏
举报

这是csdn数据库的设置:
位置：/expert/datebase.asp
<%
Set Conn=Server.CreateObject("ADODB.Connection")

Connstr="dsn=csdn_expert;uid=sa;pwd=jiangtao" '数据库的设置

Conn.Open connstr

Function SqlStr(date)
SqlStr = "'" & Replace(date, "'", "''") & "'"
End Function

Function ConvertTime(time)
ConvertTime = Month(time)&"-"&Day(time)&" "&FormatDateTime(time, vbShortTime)
End Function

Function RealStr(m_intro)
RealStr=Server.HTMLEncode(m_intro)
RealStr=Replace(RealStr,chr(13) & chr(10),"<br>")
RealStr=Replace(RealStr," and ","¦")
RealStr=Replace(RealStr," "," ")
End Function
%>

newTest 2000-05-03