<% dim page_no,url if Request.QueryString("page_no")="" then page_no=1 else page_no=CINT(request.queryString("page_no")) end if url="UserCenter.Asp" %> Contemporary ComputerWear - User Center - CCWear.com
Home > User Center
<% Dim Flag Flag=Checkstr(trim(request("Flag"))) If Flag="loginw" Then Call loginw() End If If session("UserName")<>"" or session("Flag")<>"" Then %>
<% Dim action action=Checkstr(trim(request("action"))) select case action case "editpass" Call editpass() case "editSucess" Call editSucess() case "loginout" Call loginout() case "del" Call del() case else Call main() end select %>
<% Else %>
UserName
PassWord
CheckCode <% dim randnum randomize randnum=int(9000*rnd)+999 session("randcode")=randnum Response.Write randnum %> ">
 
<% End If %>
<% Sub Main() sql="select * from WEmail order by ID desc" rs.Open sql,conn,1,1 %>
<% If Not rs.eof then rs.pagesize=15 dim page_total page_total=rs.PageCount rs.AbsolutePage=Page_no Dim I I=15 do while not rs.eof and I>0 I=I-1 %> <% rs.movenext loop %> <% Else %> <% End If rs.close %>
ID Email Time Come from  
<%=rs("ID")%> <%=rs("EmailName")%> <%=rs("AddTime")%> <%=rs("EmailIP")%> "/>
Management
<%Call PageList%>
Do not have a data.
<% End Sub Sub editpass() sql="select * from Admin where UserID=1" set rs=conn.Execute(sql) UserName=rs("UserName") rs.close %>
UserName
PassWord
Repeat
 
<% End Sub Sub editSucess() userText=trim(Checkstr(request("userText"))) passText=trim(Checkstr(request("passText"))) Dim usql 'usql="UPDATE Admin SET UserName='"& userText & "', PassWord='" & md5(passText) & "' where UserID=1" usql="select * from Admin where UserID=1" rs.open usql,conn,1,3 rs("UserName")=userText rs("PassWord")=md5(passText) rs.update rs.close Response.Write("") End Sub Sub loginw() texUser=trim(Checkstr(request("texUser"))) texPwd=trim(Checkstr(request("texPwd"))) checkcode=trim(Checkstr(request("checkcode"))) randnum=trim(Checkstr(request("randnum"))) If Not isNum(checkcode) Then Response.Write("") Else If checkcode<>randnum Then Response.Write("") Else sql="select * from admin where UserName='"&texUser&"' and password='"&md5(texPwd)&"'" set rs=Conn.Execute(sql) If rs.eof Then Response.Write("") Else session("UserName")=rs("UserName") session("Flag")="123456" Response.Write("") End If rs.close End If End IF End Sub Sub del() On Error Resume Next ID=Request.Form("ID") strSQL = "Delete From WEmail Where ID in("&ID&")" Conn.Execute(strSQL) Response.Write "" End Sub Sub loginout() session("UserName")="" session("Flag")="" Response.Write("") End Sub set rs=Nothing set Conn=Nothing %>