|
|
主题: 请帮我看看程序那里出错了，SSSOOOSSS
|
莫言
职务：普通成员
等级：1
金币：-3.5
发贴：143
注册：2002/10/10 8:46:18
|
#12002/11/22 10:38:36
这是index.asp页面 aaa
aaaaaaaaaa
aaaaaaaa
这是display.asp页面 aaaaaaaaaaa
<%
sql="select*from mytable"
set rs=server.createobject("adodb.recordset")
conn="DBQ="+server.mappath("message.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver(*.mdb)};"
rs.open.sql,conn,1,1
if rs.EOf then
Response.Write then
Response.Write"aaaaaaaaaaaaaaaaaa"
Else
%>
<%
do while rs.eof
%>
aaaaa <%=rs("user")%>aaaaa<%=rs("addtile")%>aaaaaaaaa<%=rs("tohow")%>aaaaaaa
|
<%=rs("content")%> |
<%
rs.movenext
loop
end if
set rs=nothing
set conn=nothing
%>
这是savedata.asp页面
<%
user=request("user")
email=request("email")
towho=request("towho")
content=request("content")
addtime=date()
set rs=server.createobject("adodb.recordset")
conn="DBQ="+server.mappath("message.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver(*.mdb)};"
sql="insert into mytable(user,email,towho,addtime,content)values("&user&","&email&","&towho&","&addtime&","&content&")"
rs.open sql,conn,1,1
set rs=nothing
set conn=nothing
response.write""
%>
|
