lhb_zhuce.asp

思翔会员制收费阅读（文章管理）系统20080323 收费按每点击一次收费一次

<!-- #include file="inc/Config.asp"-->
<!-- #include file="inc/md5.asp"-->
<!-- #include file="LHB_DaoJiShi.asp"-->
<!-- #include file="LHB_Copy.asp" -->
<!-- #include file="LHB_head.asp"-->
<!-- #include file="LHB_DHT_01.asp"-->
<!-- #include file="LHB_DHT_02.asp"-->
<br>
<%
L_Reg=Request("LouHB_Reg")
L_UserName=Request("LouHB_UserName")
L_Password=Request("LouHB_Password")
L_Password2=Request("LouHB_Password2")
L_BeiZhu=Request("LouHB_BeiZhu")
L_UserID=Request("LouHB_UserID")
TianJ_XiuG=Request("LouHB_TianJ_XiuG")

Select Case L_Reg
Case "注册"

If L_Password<>L_Password2 Then L_CuoWu("两次输入的新密码不一致，请重新输入！")
if Len(L_UserName) < 1 then L_CuoWu("请输入用户名！")
if Len(L_PassWord) < 1 then L_CuoWu("请输入密码！")
If Len(L_BeiZhu) > 63999 Then L_CuoWu("备注内容超长！最多支持63999个字节") 

Sub L_CuoWu(LouHB_CuoWu)
if LouHB_CuoWu <> "" then Response.Write("<script>alert('" & LouHB_CuoWu & "');history.back();</script>")
Response.End
End Sub

Set Lours=server.createobject("adodb.recordset")
Check="Select L_UserName From LHB_YongHu where L_UserName='"&L_UserName&"'"
Lours.Open Check,Louconn,1,1
If Not (Lours.EOF And Lours.BOF) Then L_CuoWu("该用户名已经被他人注册，请您更换用户名！")
Lours.Close
Set Lours=Nothing

Dim SuiJiShu
randomize timer
SuiJiShu=Int((8999)*Rnd +1000)
L_UserID=Year(Date)&Month(date)&Day(Date)&SuiJiShu
L_Password=md5(L_Password)
L_RegTime=Now()
L_Money=0
SaveU="insert into LHB_YongHu(L_UserID,L_UserName,L_Password,L_BeiZhu,L_RegTime,L_Money) values('"&L_UserID&"','"&L_UserName&"','"&L_Password&"','"&L_BeiZhu&"','"&L_RegTime&"','"&L_Money&"')"
Louconn.Execute(SaveU)
set save=nothing
response.write "<table width='768' border='0' cellspacing='0' cellpadding='0' align='Center'>"
response.write "<tr>" 
response.write "<td width='384' align='center'>"
response.write "<p Class='p3'>恭喜您!注册成功！</p><BR>"
response.write "<p Class='p3' Color='Red'>你的登录名为：<strong>"&L_UserName&"</strong></p><BR>"
response.write "</td>"
response.write "<td width='384' align='Center'>"
response.write "系统将在<span id=""DaoJiShi"">8</span>秒后为您自动跳转到登录页面"
response.write "<p></p>"
response.write "<a href=""login.asp"">如果您的浏览器没有跳功能，请点这里！</a>"
Call DaoJiShi
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "<br>"
Call Copy()
Response.End

Case "修改"
If L_Password<>L_Password2 Then L_CuoWu("两次输入的新密码不一致，请重新输入！")
If Len(L_BeiZhu) > 63999 Then L_CuoWu("备注内容超长！最多支持63999个字节") 

Set Lours=server.createobject("adodb.recordset")
up="Select * From LHB_YongHu where L_UserID='"&L_UserID&"'"
Lours.Open up,Louconn,1,3
Lours("L_BeiZhu")=L_BeiZhu
If L_Password <> "" Then
L_Password=md5(L_Password)
Lours("L_Password")=L_Password
End If
Lours.update
Lours.CLose
Set Lours=Nothing
LouConn.Close
Set LouConn=Nothing
Call Copy
response.write "<script language=JavaScript>" & chr(13) & "alert('修改成功！');"&"window.location.href='LHB_Desk.asp'"&" </script>"
Response.End
End Select

Select Case TianJ_XiuG
Case 2
Set Lours=server.createobject("adodb.recordset")
CX="Select * From LHB_YongHu where L_UserID='"&L_UserID&"'"
Lours.Open CX,LouConn,1,1
If Not (Lours.EOF And Lours.BOF) Then
L_UserName=Lours("L_UserName")
L_BeiZhu=Lours("L_BeiZhu")
End If
Lours.CLose
Set Lours=Nothing
LouConn.Close
Set LouConn=Nothing
End Select
%>
<table width="59%"  border="0" cellspacing="0" cellpadding="0" align="center" class="table4">
<form name="form1" method="post" action="LHB_ZhuCe.asp?LouHB_TianJ_XiuG=<%=TianJ_XiuG%>">
<tr align="center">
<td height="30" colspan="2" background="pic/bg.gif">
<%
If TianJ_XiuG=1 Then
response.write"用户注册"
ElseIF TianJ_XiuG=2 Then
response.write"用户修改"
End If
%>
</td>
</tr>
<tr>
<td width="22%" align="center">用户名</td>
<td width="78%">
<%
response.write"<input name='LouHB_UserName' type='text' class='button1' size='60' "
If TianJ_XiuG=2 Then 
response.write"value='"&L_UserName&"' " 
End If
If TianJ_XiuG=2 Then 
response.write"readonly"
End If
response.write">"
%></td>
</tr>
<tr>
<td align="center">&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr>
<td align="center">密　码</td>
<td><input name="LouHB_Password" type="password" class="button1" size="60"></td>
</tr>
<tr>
<td align="center">&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr>
<td align="center">密码确认</td>
<td><input name="LouHB_Password2" type="password" class="button1" size="60"></td>
</tr>
<tr>
<td align="center">&nbsp;</td>
<td>&nbsp;</td>
</tr>

<tr>
<td align="center">备　注</td>
<td>
  <textarea name="LouHB_BeiZhu" cols="60" rows="20" class="button1"><%=L_BeiZhu%></textarea></td>
</tr>
<tr>
<td align="center">&nbsp;</td>
<td>&nbsp;</td>
</tr>

<tr align="center">
<td colspan="2">
<%
If TianJ_XiuG=2 Then
response.write"<input name=""LouHB_Reg"" type=""submit"" class=""button1"" value=""修改"">"
response.write"<input name=""LouHB_UserID"" type=""hidden"" class=""button1"" value="""&L_UserID&""">"
Else
response.write"<input name=""LouHB_Reg"" type=""submit"" class=""button1"" value=""注册"">"
End If
%></td>
</tr>
<tr>
<td colspan="2">&nbsp;</td>
</tr>
</form>
</table>
<br>
<%Call Copy()%>