?? userinfo.asp
字號(hào):
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->
<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 產(chǎn)品名稱：CSYS.COM.CN企業(yè)全站管理系統(tǒng)（V2007簡體中文版）
' 聯(lián)系：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="對(duì)不起，請(qǐng)先登陸，如果您不是我們的會(huì)員，請(qǐng)先注冊(cè)！"
Call Page_check(3,0)
End IF
IF Action="infosave" THEN
IF IsValidEmail(trim(request.form("EEmail")))=false THEN
error_title="對(duì)不起，請(qǐng)輸入正確的電子郵件地址！"
founderr=True
ElseIF not isnumeric(trim(request.form("EUserCode"))) And trim(request.form("EUserCode"))<>"" THEN
error_title="對(duì)不起，郵政編碼格式不正確！"
founderr=True
ElseIF len(trim(request.form("EUserCode")))<>6 And trim(request.form("EUserCode"))<>"" THEN
error_title="對(duì)不起，郵政編碼格式不正確！"
founderr=True
ElseIF not isnumeric(trim(request.form("EUserQq"))) And trim(request.form("EUserQq"))<>"" THEN
error_title="對(duì)不起，QQ號(hào)碼格式不正確！"
founderr=True
ElseIF len(trim(request.form("EUserQq")))<5 And trim(request.form("EUserQq"))<>"" THEN
error_title="對(duì)不起，QQ號(hào)碼格式不正確！"
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="對(duì)不起，密碼不能少于6個(gè)字符，請(qǐng)重新輸入！"
founderr=True
ElseIF trim(request.form("EPass"))<>trim(request.form("EPasstoo")) THEN
error_title="對(duì)不起，確認(rèn)密碼和原密碼不一致，請(qǐng)重新輸入！"
founderr=True
ElseIF trim(request.form("EQuesion"))="" THEN
error_title="對(duì)不起，請(qǐng)輸入密碼提示問題！"
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="請(qǐng)選擇要?jiǎng)h除的對(duì)象！"
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="請(qǐng)選擇要?jiǎng)h除的對(duì)象！"
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="刪除成功，刪除的消息將置于您的回收站內(nèi)！"
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%> / 時(shí)間：<%=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">用戶等級(jí)：<%=Loginuser_Groud%><br />
<img src="<%=Loginuser_Pic%>" /><br />
注冊(cè)時(shí)間：<%=Loginuser_C(10)%><br />
登陸次數(shù)：<%=Loginuser_C(11)%><br />
上次登陸：<%=Loginuser_C(12)%><br />
留言次數(shù)：<%=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
%>
您現(xiàn)在有<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%">狀態(tài)</td>
<td>發(fā)件人</td>
<td width="40%">主題</td>
<td width="25%">時(shí)間</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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -