路过帮忙看看。。。。。

[复制链接]

★海浪★

电梯直达

1^#

发表于 2010-1-14 02:20:11 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<%
dim id, user, topic, meaasge, time
id=session("id")
user=request.form("user")
topic=request.form("topic")
meaasge=request.Form("message")
time1=session("now1")
if topic="" then
response.write "必须填写留言主题！！"
response.write "<a href='xieliu.asp'>返回重新填写！</a>"
elseif meaasge="" then
response.write "你还没有留言！"
response.write "<a href='xieliu'>返回重新填写！</a>"
else
Set ConnObj = Server.CreateObject("ADODB.Connection")
DbPath= Server.MapPath("db.mdb")
ConnObj.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
sql="insert into guset values('"&id&"','"&user&"','"
sql=sql&topic&"','"&meaasge&"','"&time&"')"
set rs=connobj.execute(sql)
response.redirect "index.asp"
end if
%>

我运行后变成这样了。怎么一回事，
我不知道怎么改。。帮我看看好吗？
Microsoft VBScript 编译器错误错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e07'
[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。

收藏0