首页 网页编写代码(读取数据库和做留言簿)

网页编写代码(读取数据库和做留言簿)

举报
开通vip

网页编写代码(读取数据库和做留言簿)读取access数据库中表的内容2 ") response.write("") for i=0 to 3 response.write(""&rs(i).name&"") next response.write("") response.write("") do while not rs.eof if(n mod 2=0)then response.write("") else response.write("") end if n=n+1 for i=0 to 3 respons...

网页编写代码(读取数据库和做留言簿)
读取access数据库中 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 的内容2 <% set cn=server.createobject("adodb.connection") cn.open"driver={Microsoft Access Driver (*.mdb)};dbq=d:\db1.mdb" set rs=cn.execute("select*from ljb") n=1 response.write("") response.write("") for i=0 to 3 response.write("") next response.write("") response.write("") do while not rs.eof if(n mod 2=0)then response.write("") else response.write("") end if n=n+1 for i=0 to 3 response.write("") next rs.movenext response.write("") loop response.write("
"&rs(i).name&"
"&rs(i)&"
") %> 聊天室3 chat.asp: <% yhm=request("yhm") application("username")=yhm application.lock application("n")=application("n")+1 application("usernz")=application("usernz")&"
"&yhm application.unlock %> global.asa: index.asp: 当前聊天室的人数为: <% response.write(application("n")) %>
用户名:
input.htm:
绿 黄 发言:
message.asp: <% x=request("user") clr=request("clr") if x<>empty then application("c")=application("c")&application("username")&"说:" application("c")=application("c") &""&x&"
" end if xx=application("c") response.write(xx) %> S_var.asp: <% response.write("当前正在聊天的人数为:"&"
") response.write(application("n")&"
") response.write("当前正在聊天的成员有:"&"
") response.write(application("usernz")) response.write("
") server_name=request.servervariables("server_name") response.write("服务器或IP:"&server_name&"
") %> 留言薄2 <% user=request("user") main=request("main") hfdz=request("hfdz") lynr=request("lynr") set fs=server.createobject("scripting.filesystemobject") set file1=fs.opentextfile("d:\tt.txt",8,true) file1.writeline(now()) file1.writeline(user) file1.writeline(main) file1.writeline(hfdz) file1.writeline(lynr) set fs=server.createobject("scripting.filesystemobject") set file1=fs.opentextfile("d:\tt.txt",1,false) response.write("") response.write("") do while not file1.atendofstream response.write("") for i=1 to 5 x=file1.readline response.write("") next response.write("") loop response.write("
日期用户名留言主 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 回复地址留言内容
"&x&"
") do while not file1.atendofstream aline=file1.readline response.write aline&"
" loop file1.close set file1=nothing set fs=nothing %>
日期: <%response.write now()%>
用户名:
留言主题:
回复地址:
留言内容:
本文档为【网页编写代码(读取数据库和做留言簿)】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
下载需要: 免费 已有0 人下载
最新资料
资料动态
专题动态
is_882336
暂无简介~
格式:doc
大小:25KB
软件:Word
页数:0
分类:互联网
上传时间:2019-08-26
浏览量:12