⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 noteview.asp

📁 一个很好用的bbs范例
💻 ASP
字号:
<!-- #include file="config.inc" -->
<%
set conn=server.createobject("adodb.connection")'创建connectiong 对象,用来建立数据源和ADO 程序之间的联系
conn.open connstring '"DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("shopping.mdb")
set objnoters=server.createobject("adodb.recordset")
'noteid==request.querystring("noteid")
noteid=request.querystring("noteid")
ssq1="select * from notebook where noteid='"&noteid&"'"
objnoters.open ssq1,conn,1,3
if objnoters.eof then
response.write"留言已删除,请<a href=""vbscript:window.close()"">关闭</a>"
response.end
end if
temp=split(objnoters("notetime")," ",-1,1)
datatemp=split(temp(0),"-",-1,1)
notetime=datatemp(0)&"年"&datatemp(1)&"月"&datetemp(2)&"日"
timetemp=split(temp(1),":",-1,1)
notetime=notetime&timetemp(0)&"点"&timetemp(1)&"分"&timetemp(2)&"秒"
userid=objnoters("userid")
email=objnoters("email")
subject=objnoters("subject")
content=objnoters("content")
objnoters.close
ssq1="update notebook set readnum=readnum+1 where noteid='"&noteid&"'"
application.lock
objnoters.open ssq1,conn,1,3
application.unlock
conn.close
set conn=nothing
set objnoters=nothing

%>
<html>
<head>
<title>查看留言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
.class1{font:10pt;color:#9900cc;}
.class2{font:11pt;}
input{font:10pt;background-color:#eeeeee;border-style:solid;border-color:#6666cc;border-width:1;}
a:hover[color:#ff0000;text-decoration:none;}
a:link{color:#00000;text-decoration:underline;}
-->
</style>
</head>
<body bgcolor="#FFFFFF" style="font:10pt">
<div id="floater" align="center" style="Left: 15pt;top:2px;width:280;font:10pt">
<table width=270 border=0 cellspacing="1" bgcolor="#b0cfef">
<tr>
<td align=center bgcolor="#d8f3fe"><b><font color=#669900 class=class2>查看留言</font><font color=#999999 face=arial size=4>
</font>
</b>
</td>
</tr>
<tr>
<td align=center bgcolor="#ffffff">
<p align="center">
<br>
<font class=class1>姓名</font>&nbsp <input type=text size=24 value=<%=userid%>>
<br>
<font class=class1>邮箱</font>&nbsp <input type=text size=24 value=<%=email%>>
<br>
<font class=class1>主题</font>&nbsp <input type=text size=24 value=<%=subject%>>
<br>
<font class=class1>时间</font>&nbsp <input type=text size=24 value=<%=notetime%>>
<br>
<font class=class1>
详细内容</font><br>
<textarea name="content" cols="31" rows="4"><%=content%></textarea>
<br>
<br>
</td>
</tr><tr><td><table width="100%">
<tr><td width="50%" align="center"style="font:10pt><a href="vbscript:window.close()">
关闭窗口 </a></td><td width="50%" align="center"><a href="noteback.asp?noteid=<%=noteid%>&subject=<%=subject%>" style="font:10pt">
回复留言
</a></td></tr></table></td></tr>
</table>
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -