📄 user_myinfo.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%
Option Explicit
Response.buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="../Inc/Const.asp"-->
<!--#Include File="User_CheckPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="User_Style.css" type="text/css" rel="stylesheet">
<script language="javascript" src="../Js/Common.js"></script>
<title>我的资料</title>
</head>
<body>
<%
Dim CurrentPath, CurrentPage, URLParameters
CurrentPage = EL_Common.ELRequest("page", 2)
URLParameters = request.ServerVariables("QUERY_STRING")
If CurrentPage<1 Then 
   CurrentPage = 1
Else
   URLParameters = EL_Common.ReplaceText(URLParameters, "&*page=[0-9]*", "")
End If

CurrentPath = "·您现在的位置：<a href='User_MyInfo.asp'>我的资料</a>"
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="13%" background="Images/navbg.gif"><img src="Images/navtitle.gif" width="113" height="37"></td>
    <td width="87%" background="Images/navbg.gif">| <a href="User_MyInfo.asp" class="nav">个人资料</a> | <a href="User_MyInfo.asp?Action=AwardLog" class="nav">个人奖惩记录</a> | <a href="User_MyInfo.asp?Action=Favorite" class="nav">我的收藏</a> | </td>
  </tr>
</table>
<div class="dw">
<%
Select Case Action
   Case "": Call MyInfo()
   Case "SaveInfo": Call SaveInfo()
   Case "AwardLog": Call MyAwardLog()
   Case "ShowLog": Call ShowLog()
   Case "Favorite": Call MyFavorite()
   Case "DelFavorite": Call DelFavorite()
End Select
Call ApplicationTerminate()

Sub DelFavorite()
   On Error Resume Next
   Dim FavoriteCmd
   Dim InfoID
   
   InfoID = EL_Common.ELRequest("FavoriteID", 2)
   
   Call EL_Common.InitCommand(FavoriteCmd, "EL_SP_Favorite")
   With FavoriteCmd
      .Parameters.Append .CreateParameter("@Type", 3, 1, 4, 1)
	  .Parameters.Append .CreateParameter("@UserID", 3, 1, 4, EL_User.UserID)
	  .Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, 0)
	  .Parameters.Append .CreateParameter("@InfoID", 3, 1, 4, InfoID)
	  .Parameters.Append .CreateParameter("@InfoURL", 200, 1, 100, "")
	  .Execute()
   End With
   Set FavoriteCmd = Nothing
   EL_Common.ShowScriptError()
   Response.Redirect ComeURL
End Sub

Sub SaveInfo()
  On Error Resume Next
  Dim UserCmd
  Dim TrueName, FaceSize, FaceType, DefineFace, SelectFace, Userface
  Dim Sex, Birthday, IDCard, Phone, Mobile, Fax, QQ, ICQ, MSN, Email, Marriage
  Dim Job, JobTitle, Income, ZipCode, CompanyName, Address, Sign
  
  TrueName = EL_Common.ELRequest("TrueName", 1)
  FaceSize = EL_Common.ELRequest("FaceSize", 1)
  FaceType = EL_Common.ELRequest("FaceType", 2)
  DefineFace = EL_Common.ELRequest("DefineFace", 1)
  SelectFace = EL_Common.ELRequest("SelectFace", 1)
  Sex = EL_Common.ELRequest("Sex", 2)
  Birthday = EL_Common.ELRequest("Birthday", 1)
  IDCard = EL_Common.ELRequest("IDCard", 1)
  Phone = EL_Common.ELRequest("Phone", 1)
  Mobile = EL_Common.ELRequest("Mobile", 1)
  Fax = EL_Common.ELRequest("Fax", 1)
  QQ = EL_Common.ELRequest("QQ", 1)
  ICQ = EL_Common.ELRequest("ICQ", 1)
  MSN = EL_Common.ELRequest("MSN", 1)
  Email = EL_Common.ELRequest("Email", 1)
  Marriage = EL_Common.ELRequest("Marriage", 1)
  Job = EL_Common.ELRequest("Job", 1)
  JobTitle = EL_Common.ELRequest("JobTitle", 1)
  Income = EL_Common.ELRequest("Income", 1)
  ZipCode = EL_Common.ELRequest("ZipCode", 1)
  CompanyName = EL_Common.ELRequest("CompanyName", 1)
  Address = EL_Common.ELRequest("Address", 1)
  Sign = EL_Common.ELRequest("Sign", 1)
  
  If FaceType = 0 Then
     Userface = SelectFace
  Else
     Userface = DefineFace
  End If
  If IsDate(Birthday) = False Then
     EL_Common.ShowErrorMsg("生日格式错误")
	 Exit Sub
  End If
  Call EL_Common.InitCommand(UserCmd, "EL_SP_ModifyUserInfo")
  With UserCmd
      .Parameters.Append .CreateParameter("RETURN", 2, 4)
	  .Parameters.Append .CreateParameter("@ModifyType", 3, 1, 4, 1)
	  .Parameters.Append .CreateParameter("@UserID", 3, 1, 4, EL_User.UserID)
	  .Parameters.Append .CreateParameter("@GroupID", 3, 1, 4, 0)
	  .Parameters.Append .CreateParameter("@TrueName", 200, 1, 50, TrueName)
	  .Parameters.Append .CreateParameter("@Password", 200, 1, 32, "")
	  .Parameters.Append .CreateParameter("@FaceType", 3, 1, 4, FaceType)
	  .Parameters.Append .CreateParameter("@Userface", 200, 1, 255, Userface)
	  .Parameters.Append .CreateParameter("@FaceSize", 200, 1, 20, FaceSize)
	  .Parameters.Append .CreateParameter("@Sex", 2, 1, 4, Sex)
	  .Parameters.Append .CreateParameter("@Birthday", 135, 1, 8, Birthday)
	  .Parameters.Append .CreateParameter("@IDCard", 200, 1, 20, IDCard)
	  .Parameters.Append .CreateParameter("@Question", 200, 1, 255, "")
	  .Parameters.Append .CreateParameter("@Answer", 200, 1, 32, "")
	  .Parameters.Append .CreateParameter("@Mobile", 200, 1, 30, Mobile)
	  .Parameters.Append .CreateParameter("@Phone", 200, 1, 30, Phone)
	  .Parameters.Append .CreateParameter("@Fax", 200, 1, 30, Fax)
	  .Parameters.Append .CreateParameter("@QQ", 200, 1, 30, QQ)
	  .Parameters.Append .CreateParameter("@ICQ", 200, 1, 30, ICQ)
	  .Parameters.Append .CreateParameter("@MSN", 200, 1, 100, MSN)
	  .Parameters.Append .CreateParameter("@Email", 200, 1, 100, Email)
	  .Parameters.Append .CreateParameter("@Address", 200, 1, 255, Address)
	  .Parameters.Append .CreateParameter("@ZipCode", 200, 1, 10, ZipCode)
	  .Parameters.Append .CreateParameter("@Marriage", 200, 1, 10, Marriage)
	  .Parameters.Append .CreateParameter("@Job", 200, 1, 30, Job)
	  .Parameters.Append .CreateParameter("@JobTitle", 200, 1, 30, JobTitle)
	  .Parameters.Append .CreateParameter("@Income", 3, 1, 4, Income)
	  .Parameters.Append .CreateParameter("@CompanyName", 200, 1, 100, CompanyName)
	  .Parameters.Append .CreateParameter("@Sign", 200, 1, 500, Sign)
	  .Parameters.Append .CreateParameter("@EnablePost", 11, 1, 1, 0)
	  .Parameters.Append .CreateParameter("@BoardSuperPassed", 11, 1, 1, 0)
	  .Parameters.Append .CreateParameter("@Locked", 11, 1, 1, 0)
	  .Parameters.Append .CreateParameter("@ArrDiscountOfBook", 200, 1, 50, "")
	  .Execute()
  End With
  If UserCmd(0) = 40 Then
     EL_Common.ShowErrorMsg("会员ID错误")
	 Set UserCmd = Nothing
	 Exit Sub
  End If 
  EL_Common.ShowSuccessMsg("信息修改成功")
  EL_Common.ShowScriptError()
End Sub

Sub MyFavorite()
On Error Resume Next
On Error Resume Next
Dim FavoriteCmd, rsFavorite, StrFields, StrCondition, i
Dim PageSizes, PageCounts, RowCount, TotalRowCount

PageSizes = 20
StrFields = "FavoriteID,InfoTitle,InfoURL,UpdateTime"

StrCondition = "UserID="& EL_User.UserID

Call EL_Common.InitCommand(FavoriteCmd, "EL_SP_SplitPage")
With FavoriteCmd
  .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
  .Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_Favorite")
  .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "FavoriteID")
  .Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "UpdateTime DESC")
  .Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
  .Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
  .Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
  .Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
  .Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
  .Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
  .Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
  Set rsFavorite = .Execute()
End With
rsFavorite.Close()
RowCount = FavoriteCmd(0)
TotalRowCount = FavoriteCmd(9)
PageCounts = FavoriteCmd(10)

CurrentPath = CurrentPath &" >> 我的收藏"
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="7%" align="center" class="top_Item"><strong>ID</strong></td>
    <td width="63%" align="center" class="top_Item"><strong>标题</strong></td>
    <td width="19%" align="center" class="top_Item"><strong>收藏日期</strong></td>
    <td width="11%" align="center" class="top_Item"><strong>操作</strong></td>
  </tr>
  <%
   If RowCount = 0 Then
      Response.Write "<tr><td class='td_50' colspan=4 align=center>没有任何记录</td></tr>"
   Else
     rsFavorite.Open()
	 For i = 1 To RowCount
  %>
  <tr class="td_22" onMouseOver="this.className='MouseOver_22'" onMouseOut="this.className='td_22'">
    <td align="center"><%=rsFavorite("FavoriteID")%></td>
    <td style="padding-left:5px;"><a href="<%=rsFavorite("InfoURL")%>" target="_blank"><%=rsFavorite("InfoTitle")%></a></td>
    <td align="center"><%=rsFavorite("UpdateTime")%></td>
    <td align="center"><a href="User_MyInfo.asp?Action=DelFavorite&FavoriteID=<%=rsFavorite("FavoriteID")%>">删除</a></td>
  </tr>
  <% 
       If i<RowCount Then rsFavorite.MoveNext
	 Next
	 rsFavorite.Close()
   End If
  %>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td height="25" align="right"><%=EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "记录", "条")%></td>
  </tr>
</table>
<%
Set FavoriteCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub MyAwardLog()
On Error Resume Next
Dim AwardCmd, rsAward, StrFields, StrCondition, i
Dim PageSizes, PageCounts, RowCount, TotalRowCount, ArrAwardType(2)

ArrAwardType(1) = PointItemName
ArrAwardType(2) = ExpItemName

PageSizes = 20
StrFields = "*"

StrCondition = "UserID="& EL_User.UserID &" And UserName='"& EL_User.UserName &"'"

Call EL_Common.InitCommand(AwardCmd, "EL_SP_SplitPage")
With AwardCmd
  .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
  .Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_AwardLog")
  .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "AwardID")
  .Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "UpdateTime DESC")
  .Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
  .Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
  .Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
  .Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
  .Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
  .Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
  .Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
  Set rsAward = .Execute()
End With
rsAward.Close()
RowCount = AwardCmd(0)
TotalRowCount = AwardCmd(9)
PageCounts = AwardCmd(10)

CurrentPath = CurrentPath &" >> 个人奖惩记录"
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="5%" align="center" class="top_26"><strong>ID</strong></td>
    <td width="10%" align="center" class="top_26"><strong>会员名</strong></td>
    <td width="8%" align="center" class="top_26"><strong>奖惩方式</strong></td>
    <td width="10%" align="center" class="top_26"><strong>奖惩数额</strong></td>
    <td width="10%" align="center" class="top_26"><strong>操作人</strong></td>
    <td width="13%" align="center" class="top_26"><strong>发生时间</strong></td>
    <td align="center" class="top_26"><strong>备注</strong></td>
  </tr>
  <%
12 下一页
💿 文件大小 4678 K
👤 上传用户 libin2722
📂 所属分类企业管理
🏷️ 相关标签

#Elan #2008 #SP #旅游
⌨️ 快捷键说明

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