📄 g_down.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<html>
<head>
<title>:::<%=txl_info(0)%>:::<%=txl_info(1)%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="岩岩,岩岩电子">
<meta name="description" content="留言下载">
<style type=text/css>
td {
font-size: 9pt;
}
.content {
font-size: 10pt;
}
</style>
<%
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
function printcode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
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> ")
re.Pattern="\[(.*)\](.*)\[\/(.*)\]"
fString=re.Replace(fString,"$2")
fString=ChkBadWords(fString)
printcode = fString
end if
end function
%>
</head>
<body>
<TABLE cellSpacing=0 cellPadding=0 width="90%" border=0 align=center>
<TBODY>
<TR>
<TD>
<table width=100% cellpadding=0 cellspacing=0 border=0 align=center>
<tr>
<td width=*> <%=txl_info(0)%>>>>班级留言</td>
<td align=right>
<script>
var i=9;
function chgsize(act)
{
if (act=="add")
{i++;}
else
{i--;}
document.styleSheets[0].rules[0].style.fontSize=i+"pt";
document.styleSheets[0].rules[1].style.fontSize=i+1+"pt";
}
</script>
字体大小：<a href=# onclick="chgsize('')" >-</a> <a href=# onclick="chgsize('add')" >+</a> <img src=images/print.gif align=absmiddle> <a href=javascript:window.print()>打印</a></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=4 width="80%" border=0 align=center>
<TR>
<TD colspan="2">
<%
dim abgcolor
set rs=server.createobject("adodb.recordset")
sql="select * from gbook order by postid desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "班上还没有人留言。"
response.end
else
%>
</TD>
<%
do while not rs.eof
%>
</TR>
<TR>
<TD colspan="2"><%=rs("postuser")%>于<%=rs("addtime")%>说：<blockquote><font class=content id=content><%=printcode(rs("content"))%></font></blockquote></TD>
</TR>
<%
rs.movenext
loop
end if
%>
</table>
</td>
</tr>
</tbody>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -