📄 userinfo.asp
字号:
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037 Emial：hechenn@126.com）
' Copyright 2006 txcodes.com - 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="770" 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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -