读取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(""&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
response.write(""&rs(i)&" | ")
next
rs.movenext
response.write("
")
loop
response.write("
")
%>
聊天室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(""&x&" | ")
next
response.write("
")
loop
response.write("
")
do while not file1.atendofstream
aline=file1.readline
response.write aline&"
"
loop
file1.close
set file1=nothing
set fs=nothing
%>