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>
.
.
.