200414
所属分类:Windows编程
开发工具:Visual Basic
文件大小:4684KB
下载次数:2
上传日期:2009-06-11 18:06:41
上 传 者:
man2005
说明: ASP必学100经典,如果你想成为ASP高手,那么ASP必学100经典是您的必备宝典,真正的高手看过来,天极网源代码和试题下载中心提供。
(100 will learn the classic ASP, ASP if you want to be a master, then the school will be 100 classic ASP is essential that you book, the real master Peak,天极network to download the source code and test centers.)
文件列表:
gp (0, 2001-11-11)
gp\实例15 (0, 2001-11-11)
gp\实例01 (0, 2001-11-11)
gp\实例02 (0, 2001-11-11)
gp\实例04 (0, 2001-11-11)
gp\实例05 (0, 2001-11-11)
gp\实例06 (0, 2001-11-11)
gp\实例07 (0, 2001-11-11)
gp\实例08 (0, 2001-11-11)
gp\实例09 (0, 2001-11-11)
gp\实例10 (0, 2001-11-11)
gp\实例100 (0, 2001-11-11)
gp\实例11 (0, 2001-11-11)
gp\实例12 (0, 2001-11-11)
gp\实例13 (0, 2001-11-11)
gp\实例14 (0, 2001-11-11)
gp\91-100 (0, 2001-11-11)
gp\91-100\COUNTER (0, 2001-11-11)
gp\实例16 (0, 2001-11-11)
gp\实例17 (0, 2001-11-11)
gp\实例18 (0, 2001-11-11)
gp\实例19 (0, 2001-11-11)
gp\实例20 (0, 2001-11-11)
gp\实例21 (0, 2001-11-11)
gp\实例22 (0, 2001-11-11)
gp\实例23 (0, 2001-11-11)
gp\实例24 (0, 2001-11-11)
gp\实例25 (0, 2001-11-11)
gp\实例26 (0, 2001-11-11)
gp\实例27 (0, 2001-11-11)
gp\实例28 (0, 2001-11-11)
gp\实例29 (0, 2001-11-11)
gp\实例3 (0, 2001-11-11)
gp\实例30 (0, 2001-11-11)
gp\实例31 (0, 2001-11-11)
gp\实例31\NUM (0, 2001-11-11)
gp\实例32 (0, 2001-11-11)
gp\实例33 (0, 2001-11-11)
gp\实例34 (0, 2001-11-11)
gp\实例35 (0, 2001-11-11)
... ...
<%
response.buffer=true
response.clear
response.expires=0
%>
查看留言
<%
if not request.querystring("id")="" then
strdsn="dsn=bbs;uid=feng;pwd=feng"
strdeletesql="delete from message where id=" &request.querystring("id")
set rsdelete=server.createoject("adodb.recordset")
rsdelete.open strdeletesql,strdsn,1,3
set rsdelete=nothing
response.redirect "readmessage.asp"
end if
%>
<%
dim strsql,strdsn
strsql="select * from message where messagetoname='" & session("name") & "'"
strdsn="dsn=bbs;uid=feng;pwd=feng"
set rs=server.createobject("adodb.recordset")
rs.open strsql,strdsn,1,3
response.write "
你共有" & rs.recordcount & "条留言"
%>
<%
dim i
response.write ""
for i=1 to rs.recordcount
response.write "" & rs("messagedate") & " " & rs("messagetime") & " | "
response.write "" & rs("messagename") & " | "
response.write "" & rs("messageemail") & " | "
response.write "" & rs("messagehomepage") & " | "
response.write "回复"
response.write "删除 |
"
response.write "" & rs("messagecontent") & " |
"
rs.movenext
next
response.write "
"
rs.close
set rs=nothing
%>
近期下载者:
相关文件:
收藏者: