小妹求救: 写的留言本老提示"语句未结束",请高手指教,在线等...

lianglimei 2004-08-08 04:52:16
错误提示:

错误类型:
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/asp/test/add.asp, 第 15 行, ? 72 ?



代码:
/////////////////////////////////////////////////
<div align="center">
<%
on error resume next
function deal(exp1)
dim exp2
exp2=replace(exp1,"<","<")
exp2=replace(exp2,">",">")
exp2=replace(exp2,"'","''")
exp2=replace(exp2,chr(13,"<br>"))
deal=exp2
end function


if request("task")="insert" then
if request("name")="" then
name="不告诉你"
else
name=request("name")
name=deal(name)
end if

if request("email")="" then
email="还没有呢"
else
email=request("email")
email=deal(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




name=request("name")
email=request("email")
url=request("url")
ly=request("ly")
sj=request("sj")

set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
cnpath="data source=" & server.MapPath("guestbook.mdb")
conn.open "provider=microsoft.jet.oledb.4.0;" & cnpath
'conn.open "provider=microsoft.jet.oledb.4.0;daba source=server.mappath('guestbook.mdb')"


rs.open "select * from guest",conn,3,3
rs.movefirst
rs.addnew
rs("name")=name
rs("email")=email
rs("url")=url
rs("ly")=ly
rs("sj")=sj
rs.update
response.write "<br><br><font size=2>" & name &",恭喜您,留言已发出!</font><br>"
response.write "<a href="read.asp">查看留言</a>"
rs.close
set rs=nothing
conn.close
set conn=nothing

end if
%>

</div>
/////////////////////////////////////////////////////////////////////

前一页是提交变量的,write.asp,提交变量给本页add.asp处理,出现上面的错误,我检查代码好久了,都出现相同的错误,请高手指教!
...全文
62 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lianglimei 2004-08-08
问题解决,不过不是你们说的那个呀...

response.write "<a href="read.asp">查看留言</a>"
引号不对.....555
不过感谢各位,分就平分了!
回复
celerylhl 2004-08-08
function deal(exp1)
dim exp2
exp2=replace(exp1,"<","<")
exp2=replace(exp2,">",">")
exp2=replace(exp2,"'","''")
exp2=replace(exp2,chr(13××××,"<br>"))
deal=exp2
end function

写代码可要仔细啊。
回复
yellowstrong 2004-08-08
同意楼上!
回复
孟子E章 2004-08-08
exp2=replace(exp2,chr(13,"<br>"))

--->

exp2=replace(exp2,chr(13),"<br>"))
回复
lianglimei 2004-08-08
我多回几次车,也出现还出现一样的错误提示!
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-08-08 04:52
社区公告
暂无公告