Question

网页制作中slect from的问题

运行后出现FROM 子句语法错误。
/xg/result.asp, 第 23 行

<!--#include file = "conn.asp"-->
<%
dim username,userpassword,userpassword2,cjpassword,email,sql
username=request.Form("username")
userpassword=request.Form("userpwd")
userpassword2=request.Form("userpwd2")
cjpassword=request.Form("cjpassword")
email=request.Form("email")
If username = "" Or userpassword = "" Or userpassword2 = "" Or cjpassword = "" Or email = "" Then
response.write "<script language=JavaScript>" & chr(13) & "alert('请检查您填写的内容是否完整！');" & "history.back()" & "</script>"
Response.End
ElseIf Instr(Email, "@") = 0 Or Right(Email, 1) = "@" Or Left(Email, 1) = "@" Then
response.write "<script language=JavaScript>" & chr(13) & "alert('请检查您的邮件地址是否正确！');" & "history.back()" & "</script>"
Response.End
ElseIf userPassword <> userPassword2 Then
response.write "<script language=JavaScript>" & chr(13) & "alert('两次输入的密码不一到致！');" & "history.back()" & "</script>"
Response.End
ElseIf userPassword =cjPassword Then
response.write "<script language=JavaScript>" & chr(13) & "alert('为了您的账号安全,超级密码请不要和密码一样!');" & "history.back()" & "</script>"
Response.End
End If
'！！！！！！第23 句
sql = "select * from user where username='"&username&"'"
set rs = Conn.Execute(sql)
If Not rs.EOF Then
response.write "<script language=JavaScript>" & chr(13) & "alert('此用户名已经有人使用了！');" & "history.back()" & "</script>"
Response.End

else
addsql="insert into user (usernam,userpwd,usercjpwd,useremail) values ('"&username&"' , '"&userpassword&"', '"&cipassword&"','"&email&"' )"
set rs=conn.execute(addsql)
Conn.Close
Set Conn=Nothing
Response.Write "<center><br><br><br><br>恭喜您！您已经成为我们公司的会员了！"
Response.Write "这里"
Response.Write "按"
Response.Write "<a href='login.asp'>"
Response.Write "</a>"
Response.Write "进入会员登录。"
response.end
end if
%>

Answer 1

给 user 加上[]，user是sql的关键字，为了让sql知道user是一个表名，就要加上[]来区分，否则会报错。

sql = "select * from [user] where username='"&username&"'"

Answer 2

set rs = Conn.Execute(sql)
换成这样的试试
set rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,3