荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: cfans (亮亮), 信区: Homepage
标 题: Re: [求助]一个asp编程的问题
发信站: 荔园晨风BBS站 (Tue Mar 21 22:12:43 2006), 站内
access 数据库权限问题。给access文件所在数据库加iUSER_读。写的权限。
【 在 chenyu (hello短笛) 的大作中提到: 】
小弟正在学asp作网页，但在本机测试时出了问题，大学请看出错提示
！！！！！！！！！！！！！！！！！！！｛
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 操作必须使用一个可更新的查询。
/date/guestbook.asp, 第 65 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon)
网页：
POST 74 ??? /date/guestbook.asp
POST Data:
task=insert&xm=&email=&url=&ly=777777777&B1=%BC%C7%C8%EB%C1%F4%D1%D4%B1%A1
｝！！！！！！！！！！！
以上花括号为出错提示
出错的65行是 conn.execute(sql)
小弟已安装了IIS5.1的了，作的是一个留言本，表单和处理页面都合在一起了
我想可能是系统的问题，在别人的机上测试可以通过，但本机重装了系统也不行
希望高手赐教
数据库为 guestbook.mdb,有ip xm url ly email sj 字段
以下为源文件guestbook.asp的代码
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=gb_2312-80">
<title>留言薄</title>
</head>
<style>
<!--
A:link,
A:visited { text-decoration: none; color:#008040 }
A:hover { text-decoration: underline; color: #ff0000 }
-->
</style>
<%@ language="vbscript"%>
<%
Function Deal(exp1)
dim exp2
exp2=Replace(exp1,"<","<")
exp2=Replace(exp2,">",">")
exp2=Replace(exp2,"'","''")
exp2=Replace(exp2,Chr(13),"<br>")
Deal=exp2
End Function
'建立与数据库的连接
Set Conn=Server.CreateObject("ADODB.Connection")
connstr="DBQ="+server.mappath("guestbook.mdb")+";DefaultDir=;DRIVER={Microsoft
Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
Conn.Open connstr
If Request("task")="insert" then
If Request("xm")="" then
xm="不告诉你"
else
xm=Request("xm")
xm=Deal(xm)
end if
if request("email")="" then
email="还没有那"
email=Deal(email)
else
email=Request("email")
end if
if request("url")="" then
url="没有"
else
url=Request("url")
url=Deal(url)
end if
sj = Date()
sj = sj & " " & Hour(Time()) & ":" & Minute(Time())
If Request("ly")="" then
Response.write("请输入留言！")
Response.end
else
ly=Request("ly")
ly=Deal(ly)
end if
sql="INSERT INTO lyb (ip,xm,url,email,sj,ly) VALUES ('"
sql=sql & Request("REMOTE_ADDR") & "','" & xm & "','" & url & "','"
& email & "','" & sj & "','" & ly & "')"
conn.execute(sql)
end if
set rs=server.createobject("adodb.recordset")
on error resume next
rs.open "select * from lyb order by sj DESC",conn,3,3
rs.pagesize=15
rs.AbsolutePage =1
if request("page")<>"" then rs.AbsolutePage =Request("page")
RowCount =rs.pagesize
%>
<body topmargin="0" leftmargin="2" text="#008000">
<p><font face="楷体_GB2312" color="#008000"><big><big><big><strong>
留言薄
</strong></big></big></big></font></p>
<form METHOD="POST" action="<%=Request("SCRIPT_NAME")%>">
<input type="hidden" name="task" value="insert"><p>
姓名:<input TYPE="text" SIZE="20" NAME="xm"><br>
邮件:<input TYPE="text" SIZE="20" NAME="email"><br>
主页:<input TYPE="text" SIZE="20" NAME="url"><br>
留言:<br>
<textarea ROWS="5" COLS="60" NAME="ly">
</textarea></p>
<p><input TYPE="submit" VALUE="记入留言薄" NAME="B1">
<input TYPE="reset" VALUE="重写" NAME="B2"></p>
</form>
<hr>
<%
if not rs.eof then
Do While Not RS.EOF and RowCount>0
%>
<p>日期：<%=rs("sj")%><br>
<%
if rs("xm")<>"" then
%>
姓名：<%=rs("xm")%><br>
<%
end if
if rs("url")<>"" then
%>
主页：<a href="<%=rs("url")%>"><%=rs("url")%></a><br>
<%
end if
if rs("email")<>"" then
%>
邮件:<a href="mailto:<%=rs("email")%>"><%=rs("email")%></a><br>
<%
end if
%>
留言：<br>
<%=rs("ly")%></p>
<hr>
<%
RowCount = RowCount - 1
rs.movenext
loop
else
response.write("留言本空")
end if
%>
<%
if rs.pagecount>1 then
%>
<table border="0">
<tr>
<td>留言分页</td>
<%
for i=1 to rs.pagecount
%>
<td>
<a href="<%=Request("Script_Name")%>?page=<%=i%>"><b><%=i%></b></a>
</td>
<%next%>
</tr>
</table>
<%
end if
rs.close
Set rs=nothing
conn.close
Set conn=nothing
%>
</body>
</html>
--
ooooO Ooooo
(脚( ) ( )实)
\踏( )地/
\▁) (__/
--
正在灌水。。。。
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 219.134.248.69]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店