中科新闻网lwip轮询和不轮询:急急!asp达人请进进进!!
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 18:45:12
想用asp实现每个用户只允许登陆1次也就是先分配给每个用户一个帐号,用户登陆一次后就不能再登陆了,请达人帮帮忙修改下(其中score为0时允许登陆,为 时不允许登陆)谢谢了啊
<%@ Language=VBScript %>
<%
name=trim(request("name"))
passwd=trim(request("passwd"))
'检查用户是否输入信息
if name<> "" and passwd<> "" then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("exercise.mdb")
set rs= server.createobject("adodb.recordset")
sql="select * from user where user='"&name&"' and passwd='"&passwd&"'"
'检查用户的合法性
Set rs=conn.Execute(sql)
if not(rs.eof) then
'检查用户是否已参加过投票
if rs("score")=1 then
response.write "该用户已经登录"
response.end
else '就是这个地方不知道怎么实现用户登陆后将score边为1
response.redirect "vot.htm"
end if
else
Response.Write "对不起，用户或口令不正确!"
end if
else
end if
%>
<%@ Language=VBScript %>
<%
name=trim(request("name"))
passwd=trim(request("passwd"))
'检查用户是否输入信息
if name<> "" and passwd<> "" then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("exercise.mdb")
set rs= server.createobject("adodb.recordset")
sql="select * from user where user='"&name&"' and passwd='"&passwd&"'"
'检查用户的合法性
Set rs=conn.Execute(sql)
if not(rs.eof) then
'检查用户是否已参加过投票
if rs("score")=1 then
response.write "该用户已经登录"
response.end
else '就是这个地方不知道怎么实现用户登陆后将score边为1
response.redirect "vot.htm"
end if
else
Response.Write "对不起，用户或口令不正确!"
end if
else
end if
%>
呵呵。.不懂啦..