📄 read.asp
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>问题反馈</title>
</head>
<body>
<%
function fs(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
fString = fString + "<br/>"
HTMLEncode = fString
fs=fstring
end if
end function
dim conn,connstr
connstr="Driver={sql server};UID=sa;PWD=sa;database=zikao;server=BILLGATES"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from liuyan order by id"
rs.open sql,conn
%>
<table border="1" width="684" height="669">
<tr>
<td height="31" width="684" colspan="2">
<p align="center"><b><font size="5">问题反馈</font></b></td>
</tr>
<tr>
<td height="6" width="668" colspan="2">
<p align="center"><a href="request.asp">发表主题</a></td>
</tr>
<%
if not rs.eof then
while not rs.eof
%>
<tr>
<td height="20" width="115">主题</td>
<td height="20" width="100"><%=rs(1)%></td>
</tr>
<tr>
<td height="31" width="115">内容</td>
<td height="31" width="553">
<%
memo=rs(2)
memo=fs(memo)
response.write memo
%>
</td>
</tr>
<tr>
<td height="30" width="115">回复</td>
<td height="30" width="553"><%
memo=rs(3)
memo=fs(memo)
response.write memo
%> </td>
</tr>
<tr>
<td height="7" width="684" colspan="2" bgcolor="#3366FF"> </td>
</tr>
<%
rs.movenext
wend
%>
<tr>
<td height="506" width="684" colspan="2">
<%else%>
没有主题
<%end if%>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -