Question

请教一个ASP更新sql表中一字段内容的语句，谢谢！

我想做一个如下功能的页面：
某一个产品，只能是注册会员才能申请，而且每位注册会员只能申请一次。
其中在表Max_UserProfiles中以下字段分别表示：
bbsUserName和freehostpass是会员ID及对应的通行证密码，
freehosts是记录申请历史的，如果freehosts=0，则可以申请；否则不可以。如果freehosts=0，且用户开始申请这一产品成功，则更新字段freehosts的值为1。
以下是我完成的代码部份：
<%
bbsUserName = trim(request("bbsusername"))
freehostpass = trim(request ("freehostpass"))
if bbsusername = "" or freehostpass = "" then
response.redirect "/Pass.asp?id=1"
end if
set conn=server.CreateObject("adodb.connection")
connstr= "PROVIDER=SQLOLEDB;DATA SOURCE=(local);UID=a1120231725;PWD=13608155;DATABASE=a1120231725"
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Max_UserProfiles where NickName='"&bbsUserName&"' and PublicEmail='"&freehostpass&"' " ,conn,1,3
freehosts=rs("freehosts")
if rs.bof and rs.eof then
response.write "您填写的用户名与对应的通行证不符!"
'这里想加一步判断是否已经申请过这个产品了,if freehosts=0 then freehosts要加1

Session("freehostpass")=trim(request("bbsusername"))
Session.Timeout=1
response.Redirect "user/selfhost.asp?id=1"
else
'提示该用户已经申请过免费空间,不能重复申请!

end if

%>
其中验证是否申请过以及申请成功后freehosts的值更新为1不会写，请高手指点帮忙补充完成，谢谢！
谢谢532WYY ，不过我试了通不过，。。。希望能直接帮忙改一下，谢谢！！！！！

Answer 1

<%
dim sn '记录输入的查询条件
dim conn '记录连接对象
dim rec '记录结果集变量
dim str '记录查询的字符串
sn=request.queryString("t1")

set conn=server.CreateObject("adodb.connection")
set rec=server.CreateObject("adodb.recordset")

conn.connectionString="driver=sql server;server=127.0.0.1;uid=sa;pwd=;database=pubs"

conn.open

str="select au_id,au_lname,au_fname,phone,address,city from authors where au_lname like '%" & sn & "%'"

'response.Write(str) '显示字符串

set rec=conn.execute(str)

if rec.eof=true then
response.Write("<h2>没有符合条件的作者</h2>")
response.Write("<p align=right><a href=input.asp>返回</a></p>")
else
response.write("<table width=100% align=center border=1 bordercolor=orange>")
response.Write("<tr><th>编号</th><th>名字</th><th>电话</th><th>城市</th><th>地址</th></tr>")

do while rec.eof=false
response.Write("<tr align=center>")
response.Write("<td>" & rec("au_id") & "</td>")
response.Write("<td>" & rec("au_lname") & " " & rec("au_fname") & "</td>")
response.Write("<td>" & rec("phone") & "</td>")
response.Write("<td>" & rec("city") & "</td>")
response.Write("<td>" & rec("address") & "</td>")
response.Write("</tr>")
rec.movenext
loop
response.Write("</tale>")
end if
%>

上面的例子是查询，插入只需将变量str的sql的select语句改成ingsert语句就欧了

Answer 2

查资料啊