您所在位置：主题：求助=.=
likopig
[专家分：0] 发布于 2007-03-25 18:11:00
首先我对ASP跟数据库是一窍不通的- -~~~
我为了做毕业设计~~对着书抄了留言薄的代码~~带试的时候报错,我对书确认了很多次.应该没抄错的..-望大侠们帮忙看看
LeaveMessage.asp的代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
dim Name
dim Sex
dim Email
dim Subject
dim Content
Name=trim(Request.form("Name"))
Sex=trim(Request.form("Sex"))
Email=trim(Request.form("Email"))
Subject=trim(Request.form("Subject"))
Content=trim(Request.form("Content"))
'检查各数据项不能为空
If Name=""or Email=""or Subject="" or Content="" Then
Response.Write"<body bgcolor='#ffffff' background='bg.jpg'>"
Response.Write"<center><font size='6'<b>请将表单填写完整!</b></font><br>"
Response.Write"姓名、E-mail、留言主题、留言请务必填写！<br>"
Response.Write"<a herf=LeaveMessform.htm>[返回]</a>"
Response.End
End if
If Sex="Man" then
Sex="男"
ELSE
Sex="女"
end if
dim connobj
dim connstr
Set ConnObj=Server.CreateObject("ADODB.Connection")
connstr="DBQ="+server.mappath("messbook.mdb")+";DefaultDir=;
DRIVER={Microsoft Access Driver(*.mdb)};"
ConnObj.Open connstr
sql="Insert into messageboard(Name,Sex,Email,Subject,Content) values("
sql=sql&"'"& Name&"',"
sql=sql&"'"& Sex&"',"
sql=sql&"'"& Email&"',"
sql=sql&"'"& Subject&"',"
sql=sql&"'"& Content&"')"
ConnObj.Execute sql
response.redirect"ViewMessage.asp"
%>
</body>
</html>
出错信息:
Microsoft VBScript 编译器错误 (0x800A0409)
未结束的字符串常量
/biyesheji/LeaveMessage.asp, line 36, column 60
connstr="DBQ="+server.mappath("messbook.mdb")+";DefaultDir=;
-----------------------------------------------------------^
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
网页：
GET /biyesheji/LeaveMessage.asp
时间：
2007年3月25日, 17:48:05
-------------------------------------------------------------------------
最后..希望有熟悉ASP与网页的的GG辅助我完成毕业设计:P(也就是出错的时候帮我看看代码)~~谢谢了..小弟qq:38850617
我为了做毕业设计~~对着书抄了留言薄的代码~~带试的时候报错,我对书确认了很多次.应该没抄错的..-望大侠们帮忙看看
LeaveMessage.asp的代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
dim Name
dim Sex
dim Email
dim Subject
dim Content
Name=trim(Request.form("Name"))
Sex=trim(Request.form("Sex"))
Email=trim(Request.form("Email"))
Subject=trim(Request.form("Subject"))
Content=trim(Request.form("Content"))
'检查各数据项不能为空
If Name=""or Email=""or Subject="" or Content="" Then
Response.Write"<body bgcolor='#ffffff' background='bg.jpg'>"
Response.Write"<center><font size='6'<b>请将表单填写完整!</b></font><br>"
Response.Write"姓名、E-mail、留言主题、留言请务必填写！<br>"
Response.Write"<a herf=LeaveMessform.htm>[返回]</a>"
Response.End
End if
If Sex="Man" then
Sex="男"
ELSE
Sex="女"
end if
dim connobj
dim connstr
Set ConnObj=Server.CreateObject("ADODB.Connection")
connstr="DBQ="+server.mappath("messbook.mdb")+";DefaultDir=;
DRIVER={Microsoft Access Driver(*.mdb)};"
ConnObj.Open connstr
sql="Insert into messageboard(Name,Sex,Email,Subject,Content) values("
sql=sql&"'"& Name&"',"
sql=sql&"'"& Sex&"',"
sql=sql&"'"& Email&"',"
sql=sql&"'"& Subject&"',"
sql=sql&"'"& Content&"')"
ConnObj.Execute sql
response.redirect"ViewMessage.asp"
%>
</body>
</html>
出错信息:
Microsoft VBScript 编译器错误 (0x800A0409)
未结束的字符串常量
/biyesheji/LeaveMessage.asp, line 36, column 60
connstr="DBQ="+server.mappath("messbook.mdb")+";DefaultDir=;
-----------------------------------------------------------^
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
网页：
GET /biyesheji/LeaveMessage.asp
时间：
2007年3月25日, 17:48:05
-------------------------------------------------------------------------
最后..希望有熟悉ASP与网页的的GG辅助我完成毕业设计:P(也就是出错的时候帮我看看代码)~~谢谢了..小弟qq:38850617
