出现在同处的问题。

wbqc9912115 2003-10-21 03:15:17

<%
'Trim()去除字符串首尾多余的空格
If Trim(Request("content"))="" Then
sorry()
Else
dim var1,var2,var3,var4
var1=Request("username")
var2=Request("E-mail")
var3=request("title")
var4=request("content")

strSQL = "INSERT INTO luyian(username,E-mail,title,content) Values(var1,var2,var3.var4)"
conn.Execute (strSQL)///。。。。。。。。。出错！！
good()
conn.Close
Set conn = Nothing
End If
%>
<% Sub sorry() %>
<html>
<head><LINK href="style.css" rel=stylesheet type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
<title>输入有错 </title>
</head>
<body>
 <center>对不起！请输入留言！ 
 <a href="javascript:history.go(-1)">返回</a> <a href="javascript:self.close()">关闭窗口</a>
</center></body>
</html>
<%end sub%>
<%sub good()%>
<html>
<head>
<title></title>
</head>
<body>
谢谢您的留言！
<a href="show.asp">查看留言</a>
</body>
</html>
<%end sub%>

...全文

23 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

mjwgtm 2003-10-21

打赏
举报

strSQL = "INSERT INTO luyian(username,E-mail,title,content) Values(var1,var2,var3.var4)"
改成
strSQL = "INSERT INTO luyian(username,E-mail,title,content) Values('"&var1&"','"&var2&"','"&var3&"','"&var4&"')"

mjwgtm 2003-10-21

打赏
举报

strSQL = "INSERT INTO luyian(username,E-mail,title,content) Values(var1,var2,var3.var4)"
改成
strSQL = "INSERT INTO luyian(username,E-mail,title,content) Values(var1,var2,var3,var4)"