UC知道关于asp申请vip问题
来源：百度知道 编辑：UC知道 时间：2024/05/12 01:17:10
如下代码：先判断账号密码是否正确，如何判断是否申请过，现在想取消判断是否申请过，改成可以无限次申请，如何改，高手赐教！
<%
user_name=replace(Request("user_name")," ","~",1,-1,1)
password=trim(request("password"))
sql="select * from user where user_name='"&user_name&"'"
set rs=server.CreateObject ("ADODB.recordset")
rs.Open sql,conn,3
if rs.RecordCount =1 then
rs.Close
set rs=nothing
Response.Redirect "login.asp?err=1" 'cause=0 用户已有
else rs("passwd")<>password then
rs.Close
set rs=nothing
Response.Redirect "login.asp?err=1" 'cause=1 密码错
else
sql="select * from vip_user where user_name='"&user_name&"'"
set rs2=server.CreateObject ("ADODB.recordset")
rs2.Open sql,conn,3
if rs2.RecordCount<>0 then
%>
<TR>
<%
user_name=replace(Request("user_name")," ","~",1,-1,1)
password=trim(request("password"))
sql="select * from user where user_name='"&user_name&"'"
set rs=server.CreateObject ("ADODB.recordset")
rs.Open sql,conn,3
if rs.RecordCount =1 then
rs.Close
set rs=nothing
Response.Redirect "login.asp?err=1" 'cause=0 用户已有
else rs("passwd")<>password then
rs.Close
set rs=nothing
Response.Redirect "login.asp?err=1" 'cause=1 密码错
else
sql="select * from vip_user where user_name='"&user_name&"'"
set rs2=server.CreateObject ("ADODB.recordset")
rs2.Open sql,conn,3
if rs2.RecordCount<>0 then
%>
<TR>
sql="select * from vip_user where user_name='"&user_name&"'"
set rs2=server.CreateObject ("ADODB.recordset")
rs2.Open sql,conn,3
if rs2.RecordCount<>0 then
%>
<TR>
<TD align="center"><BR> <font>对不起，您重复申请了VIP会员！</font><br> <br> <a href="/"><font color="red">返回首页</font></a>
</TD>
</TR>
<% else
..end if %>
去掉这里的判断块,保留else到end if间的代码.
不过并不推荐这么做.如果随意添加数据,会造成数据库冗余数据.
不过变更一下也可以:
if rs2.RecordCount<>0 then
str = "update vip_user set 字段 = '"&值&"' where user_name='"&user_name&"'"
else
str = "insert into vip_user set 字段 = '"&值&"',user_name ='"&user_name&"'"
end if
set rs3=server.CreateObject ("ADODB.recordset")