帮忙看一下ASP代码

香叶aiq格格 · 发表于 2009-9-14 07:41:24

<html>
<head><title>访客信息</title>
</head>
<body>
<script Language="VBScript" RunAt="Server">
Sub AddRecord()
Dim ACName,ACMail,ACTelephone,ACAddress,ACContent
Dim strsql
'创建ADO Connection,打开Acess数据库
Set cn=Server.CreateObject("ADODB.Connection")
cn.open"visitor"
'获取表单内容
ACName=Request.Form("name")
ACMail=Request.Form("mail")
ACTelephone=Request.Form("telephone")
ACAddress=Request.Form("address")
ACContent=Request.Form("content")
'创建向visitorinfo表中增加记录的SQL语句
strsql="insert into visitorinfo (cname,cmail,ctelephone,caddress,ccontent)values('"&ACName&"','"&ACMail&"','"&ACTelephone&"','"&ACAddress&"','"&ACContent&"')"
'执行SQL语句
cn.execute(strsql)
'返回结果，供用户核对
Response.Write"姓名："&ACName&"<BR>"
Response.Write"邮箱："&ACMail&"<BR>"
Response.Write"电话："&ACTelephone&"<BR>"
Response.Write"地址："&ACAddress&"<BR>"
Response.Write"内容："&ACContent&"<BR>"
'关闭数据库
cn.close
End Sub
</script>
<%Call AddRecord()%>
</body></html>
这是我提交表单中数据到数据库的一段代码但是运行不出来
我就是想知道是代码有错误还是我的IIS的问题或系统的问题。

车头灯 · 发表于 2009-11-14 19:05:04

哈哈,这么多的人都回了,我敢不回吗?赶快回一个,很好的,我喜欢

小滋 · 发表于 2010-1-10 18:05:05

大Shi的话真如“大音希声扫阴翳”，犹如“拨开云雾见青天”，使我等网民看到了希望，看到了未来！

		自动登录	找回密码
密码			注册