?? userinfo.asp
字號:
<%@ 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"> <a onclick="javascript:window.open('Mess.asp?Action=Read&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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -