📄 userinfo.asp

📁 整站源码jsp 有兴趣的可以看看
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->
<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110　Emial：61128110@163.com
' Copyright 2006 www.csys.com.cn - All Rights Reserved. 
'***********************************************************************************
Dim ShopendTime,Shop_Code,OleShopCondition,ShopCondition
Dim MessFoName
IF Session("Loginuser")="" THEN
error_title="对不起，请先登陆，如果您不是我们的会员，请先注册！"
Call Page_check(3,0)
End IF
    IF Action="infosave" THEN
        IF IsValidEmail(trim(request.form("EEmail")))=false THEN
            error_title="对不起，请输入正确的电子邮件地址！"
            founderr=True
        ElseIF not isnumeric(trim(request.form("EUserCode"))) And trim(request.form("EUserCode"))<>"" THEN
            error_title="对不起，邮政编码格式不正确！"
            founderr=True
        ElseIF len(trim(request.form("EUserCode")))<>6 And trim(request.form("EUserCode"))<>"" THEN
            error_title="对不起，邮政编码格式不正确！"
            founderr=True
        ElseIF not isnumeric(trim(request.form("EUserQq"))) And trim(request.form("EUserQq"))<>"" THEN
            error_title="对不起，QQ号码格式不正确！"
            founderr=True
        ElseIF len(trim(request.form("EUserQq")))<5 And trim(request.form("EUserQq"))<>"" THEN
            error_title="对不起，QQ号码格式不正确！"
            founderr=True
        End IF
        IF founderr=true THEN
            Call Page_check(3,0)
        Else
            Dim User_UserContent,User_UserSigns,replaceall,replacestr
            Set Rs=server.createobject("adodb.recordset")
            Sql="Select * from Tx_User Where User_Id=" & Loginuser_Id
            Rs.open Sql,Conn,1,3
                Rs("User_Email")=checkfSQLStr(trim(request.form("EEmail")))
                Rs("User_UserName")=checkfSQLStr(trim(request.form("EUserName")))
                Rs("User_UserRess")=checkfSQLStr(trim(request.form("EUserRess")))
                Rs("User_UserTel")=checkfSQLStr(trim(request.form("EUserTel")))
                Rs("User_UserCode")=checkfSQLStr(trim(request.form("EUserCode")))
                Rs("User_shopPay")=request.form("EPay")
                Rs("User_shopGive")=request.form("EGive")
                Rs("User_UserQq")=checkfSQLStr(trim(request.form("EUserQq")))
                Rs("User_UserMsn")=checkfSQLStr(trim(request.form("EUserMsn")))
                Rs("User_UserWeb")=checkfSQLStr(trim(request.form("EUserWeb")))
                Rs("User_UserLtd")=checkfSQLStr(trim(request.form("EUserLtd")))
                Rs("User_Picture")=request.form("Picture")
                Rs("User_UserLtd")=checkfSQLStr(trim(request.form("EUserLtd")))
                User_UserContent=trim(request.form("EUserContent"))
                User_UserSigns=trim(request.form("EUserSigns"))
                replaceall=Web_Const(43)
                replaceall=split(replaceall,",")
                for i=0 to ubound(replaceall)
                    for intTemp=0 to len(replaceall(i))
                        replacestr=replacestr & "*"
                    next
                    User_UserContent=replace(User_UserContent,replaceall(i),replacestr)
                    User_UserSigns=replace(User_UserSigns,replaceall(i),replacestr)
                    replacestr=""
                next
                if Web_Const(42)=1 then
                    Rs("User_UserContent")=checkfSQLStr(User_UserContent)
                    Rs("User_UserSigns")=checkfSQLStr(User_UserSigns)
                else
                    Rs("User_UserContent")=nohtml(User_UserContent)
                    Rs("User_UserSigns")=nohtml(User_UserSigns)
                end if
            Rs.UpDate
            Rs.Close
            Set Rs=Nothing
            ToHistory=VisitorsForm
            saveok="资料修改成功！"
            Call Form_Saveok()
	    End IF
    End IF
	IF Action="passsave" THEN
		IF len(trim(request.form("EPass")))<6 And trim(request.form("EPass"))<>"" THEN
			error_title="对不起，密码不能少于6个字符，请重新输入！"
			founderr=True
		ElseIF trim(request.form("EPass"))<>trim(request.form("EPasstoo")) THEN
			error_title="对不起，确认密码和原密码不一致，请重新输入！"
			founderr=True
		ElseIF trim(request.form("EQuesion"))="" THEN
			error_title="对不起，请输入密码提示问题！"
			founderr=True
		End IF
        IF founderr=true THEN
            Call Page_check(3,0)

        Else
            Dim User_Passwd,User_Answer
            Set Rs=server.createobject("adodb.recordset")
            Sql="Select * from Tx_User Where User_Id=" & Loginuser_Id
            Rs.open Sql,Conn,1,3
			    IF trim(request.form("EPass"))<>"" THEN
                    User_Passwd=checkfSQLStr(trim(request.form("EPass")))
                    Rs("User_Passwd")=Md5(User_Passwd)
				End IF
                Rs("User_Quesion")=checkfSQLStr(trim(request.form("EQuesion")))
				IF trim(request.form("EAnswer"))<>"" THEN
                    User_Answer=checkfSQLStr(trim(request.form("EAnswer")))
                    Rs("User_Answer")=Md5(User_Answer)
				End IF
            Rs.UpDate
            Rs.Close
            Set Rs=Nothing
            ToHistory=VisitorsForm
            saveok="资料修改成功！"
            Call Form_Saveok()
		End IF
	End IF
	IF Action="messdelsall" THEN
	    IF request.form("Id")="" THEN
			error_title="请选择要删除的对象！"
			founderr=True
		End IF
  	    IF founderr=True THEN
	        Call Page_check(3,0)
        else	
   		    Conn.Execute "Delete From Tx_Mess Where MessId in (" & request.form("Id") & ") and MessTo='" & Session("Loginuser") & "' OR MessId in (" & request.form("Id") & ") and MessForm='" & Session("Loginuser") & "' And MessSend=0"
		    ToHistory=VisitorsForm
            saveok="删除成功！"
            Call Form_Saveok()
        End IF
	End IF
	IF Action="messdelall" THEN
	    IF request.form("Id")="" THEN
			error_title="请选择要删除的对象！"
			founderr=True
		End IF
  	    IF founderr=True THEN
	        Call Page_check(3,0)
        else	
	        Set Rs=server.Createobject("Adodb.Recordset")
            Sql="Select * From Tx_Mess Where MessId in (" & request.form("Id") & ") and MessTo='" & Session("Loginuser") & "' OR MessId in (" & request.form("Id") & ") and MessForm='" & Session("Loginuser") & "' And MessSend=0"
            Rs.open Sql,Conn,1,3
			    While Not Rs.Eof
			        Rs("MessDel")=1
			    Rs.MoveNext
			    Wend
		    Rs.close
		    Set Rs=Nothing
		    ToHistory=VisitorsForm
            saveok="删除成功，删除的消息将置于您的回收站内！"
            Call Form_Saveok()
        End IF
	End IF
    Class_Name="用户管理中心 > " & Session("Loginuser")
    Page_Name="用户管理 -- " & Session("Loginuser") & " -- " & Web_Const(0)
    Call Page_Head()
    Call Page_iHead()
    Call Page_nHead()
	GuestCount=Conn.Execute("Select count(*) from Tx_Guest where Guest_UserId=" & Loginuser_Id)(0)
	BbsCount=Conn.Execute("Select count(*) from Tx_Bbs where Bbs_UserId=" & Loginuser_Id)(0)
    %>
    <table width="990" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="321" valign="top" bgcolor="#082421"><span>
          <%Call Page_Login()%>
        </span></td>
        <td rowspan="2" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td valign="top" class="TABLE-Main"><%
		Select Case Action
		Case ""
		%>
                <div class="page-head">用户管理首页</div>
              <div class="table-Mainall">
                  <div class="user-top1">用户名：<%=Session("Loginuser")%> / IP：<%=VisitorsIp%> / 时间：<%=Loginuser_C(0)%> / 来自：<%=VisitorsRess%></div>
                <div class="user-table1"></div>
                <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="200" align="center"><img src="<%=Loginuser_C(5)%>" /></td>
                      <td valign="top">用户等级：<%=Loginuser_Groud%><br />
                        　　　　　
                        <img src="<%=Loginuser_Pic%>" /><br />
                        注册时间：<%=Loginuser_C(10)%><br />
                        登陆次数：<%=Loginuser_C(11)%><br />
                        上次登陆：<%=Loginuser_C(12)%><br />
                        留言次数：<%=GuestCount%><br />
                        论坛帖子：<%=BbsCount%></td>
                    </tr>
                  </table>
                <br />
                  <div class="type-height2"></div>
                <%
			            Set Rs_Manage=server.createobject("adodb.recordset")
            Sql="Select * From Tx_Mess where MessTo='" & Session("Loginuser") & "'and MessDel=0 and MessSend=1 And MessExamines=0 order by MessDate desc"
		    Rs_Manage.open Sql,Conn,1,1
%>
                您现在有<span class="type-color2"><b><%=Rs_Manage.recordCount%></b></span>条新短信息<br />
                <table width="100%"  border="0" cellspacing="1" cellpadding="0" class="table-bgx1">
                  <tr class="table-bgx2">
                    <td width="7%">状态</td>
                    <td>发件人</td>
                    <td width="40%">主题</td>
                    <td width="25%">时间</td>
                  </tr>
                  <%
                    While Not Rs_Manage.Eof
                  %>
                  <tr class="table-bgx3">
                    <td><%if Rs_Manage("MessExamines")=0 then Response.Write "<IMG SRC=Images/Mess/Mess_1.gif>" else Response.Write "<IMG SRC=Images/Mess/Mess_3.gif>" end if%></td>
                    <td><%if Rs_Manage("MessExamines")=0 then Response.Write "<B>" & Rs_Manage("MessForm") & "</B>" else Response.Write Rs_Manage("MessForm") end if%></td>
                    <td align="left">&nbsp;<a onclick="javascript:window.open('Mess.asp?Action=Read&amp;Id=<%=Rs_Manage("MessId")%>','news','width=512,height=310,top=300,left=260,scrollbars=yes');return false;" href=''>
                      <%if Rs_Manage("MessExamines")=0 then Response.Write "<B>" & Rs_Manage("MessName") & "</B>" else Response.Write Rs_Manage("MessName") end if%>
                    </a></td>
                    <td><%=YearDami(Rs_Manage("MessDate"))%></td>
                  </tr>
                  <%
					Rs_Manage.MoveNext
12 3 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -