📄 user_info.asp

📁 江西旅行网整站源码下载希望对大家有用经过测试安全可用
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer = True
Server.ScriptTimeOut = 9999999
%>
<!--#include file="../Conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/User.asp"-->
<!--#include file="../API/API_Config.asp"-->
<!--#include file="../API/API_Function.asp"-->
<%
If CheckUserLogined() = False Then
    Response.Redirect "User_Login.asp"
    Response.End
Else
    If UserName = "此处填写用户通用帐号" Then   '通用用户帐号可以公布出来，用于添加文章等操作
        ErrMsg = "<li>通用帐号不可以修改密码</li>"
        Call WriteErrMsg(ErrMsg, ComeUrl)
        Response.End
    End If
End If
Action = Trim(Request("Action"))
Dim arrUserType
arrUserType = Array("个人会员", "企业会员（创建者）", "企业会员（管理员）", "企业会员（普通成员）", "企业会员（待审核成员）")
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=SiteName & " >> 会员中心"%></title>
<link href="../Skin/DefaultSkin.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="top.asp"-->
<table width="756" border="0" align="center" cellpadding="0" cellspacing="0" class="user_border">
  <tr>
    <td valign="top">
      <table width="100%" border="0" cellpadding="5" cellspacing="0" class="user_box">
        <tr>
          <td class="user_righttitle"><img src="Images/point2.gif" align="absmiddle"><%
Response.Write "您现在的位置：<a href='../'>" & SiteName & "</a> >> <a href='Index.asp'>会员中心</a> >> 用户管理"
          %></td>
        </tr>
        <tr>
          <td height="200" valign='top'>
            <%
            Dim PE_UserModule
            Set PE_UserModule = New UserModule
            Call PE_UserModule.Execute
            Set PE_UserModule = Nothing
            %>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<!--#include file="bottom.asp"-->
</body>
</html>
<%
Call CloseConn


Class UserModule

Public Sub Execute()

    Action = Trim(Request("Action"))
    Select Case Action
    Case "RegCompany"
        Call RegCompany
    Case "RegCompany2"
        Call RegCompany2
    Case "SaveReg"
        Call SaveReg
    Case "Modify"
        Call ModifyInfo
    Case "SaveInfo"
        Call SaveInfo
    Case "ModifyPwd"
        Call ModifyPwd
    Case "SavePwd"
        Call SavePwd
    Case "ShowMemberInfo"
        Call ShowMemberInfo
    Case "Join"
        Call JoinCompany
    Case "Exit"
        Conn.Execute ("update PE_User set UserType=0,CompanyID=0,ClientID=0 where UserID=" & UserID & " and UserType>1")
        Response.Redirect "Index.asp"
    Case "DelCompany"
        If UserType > 1 Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>你不是企业创建者，不能注销企业"
        End If
        If ClientID > 0 Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>你已经是客户，不能注销企业"
        End If
        If FoundErr = False Then
            Conn.Execute ("update PE_User set UserType=0,CompanyID=0 where CompanyID=" & CompanyID & "")
            Conn.Execute ("delete from PE_Company where CompanyID=" & CompanyID & "")
            Response.Redirect "Index.asp"
        End If
    Case "Agree", "Reject", "Remove", "AddToAdmin", "RemoveFromAdmin"
        Call MemberManage
    Case Else
        Response.Redirect "Index.asp"
    End Select

    If FoundErr = True Then
        Call WriteErrMsg(ErrMsg, ComeUrl)
    End If

End Sub

'**************************************************
'函数名：PopCalendarInit
'作  用：调用日期 js
'**************************************************
Public Function PopCalendarInit()
    Dim strCalendar
    strCalendar = strCalendar & "<script language='JavaScript' src='PopCalendar.js'></script>" & vbCrLf
    strCalendar = strCalendar & "<script language='JavaScript'>" & vbCrLf
    strCalendar = strCalendar & "PopCalendar = getCalendarInstance()" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.startAt = 0 // 0 - sunday ; 1 - monday" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.showWeekNumber = 0 // 0 - don't show; 1 - show" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.showTime = 0 // 0 - don't show; 1 - show" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.showToday = 0 // 0 - don't show; 1 - show" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.showWeekend = 1 // 0 - don't show; 1 - show" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.showHolidays = 1 // 0 - don't show; 1 - show" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.showSpecialDay = 1 // 0 - don't show, 1 - show" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.selectWeekend = 0 // 0 - don't Select; 1 - Select" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.selectHoliday = 0 // 0 - don't Select; 1 - Select" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.addCarnival = 0 // 0 - don't Add; 1- Add to Holiday" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.addGoodFriday = 0 // 0 - don't Add; 1- Add to Holiday" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.language = 0 // 0 - Chinese; 1 - English" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.defaultFormat = 'yyyy-mm-dd' //Default Format dd-mm-yyyy" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.fixedX = -1 // x position (-1 if to appear below control)" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.fixedY = -1 // y position (-1 if to appear below control)" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.fade = .5 // 0 - don't fade; .1 to 1 - fade (Only IE) " & vbCrLf
    strCalendar = strCalendar & "PopCalendar.shadow = 1 // 0  - don't shadow, 1 - shadow" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.move = 1 // 0  - don't move, 1 - move (Only IE)" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.saveMovePos = 1  // 0  - don't save, 1 - save" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.centuryLimit = 40 // 1940 - 2039" & vbCrLf
    strCalendar = strCalendar & "PopCalendar.initCalendar()" & vbCrLf
    strCalendar = strCalendar & "</script>" & vbCrLf
    PopCalendarInit = strCalendar
End Function

Sub ModifyInfo()
    Dim rsUser,tempUserName
    Set rsUser = Conn.Execute("select * from PE_User where UserID=" & UserID & "")
    tempUserName = rsUser("UserName")
    Response.Write PopCalendarInit() & vbCrLf
    Response.Write "<script language=javascript>" & vbCrLf
    Response.Write "function CheckSubmit(){" & vbCrLf
    Response.Write "    if(document.myform.Question.value==''){" & vbCrLf
    Response.Write "        alert('密码提示问题不能为空！');" & vbCrLf
    Response.Write "        document.myform.Question.focus();" & vbCrLf
    Response.Write "        return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if(document.myform.Email.value==''){" & vbCrLf
    Response.Write "        alert('电子邮件不能为空！');" & vbCrLf
    Response.Write "        document.myform.Email.focus();" & vbCrLf
    Response.Write "        return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    document.myform.Country1.value=frm1.document.regionform.Country.value;" & vbCrLf
    Response.Write "    document.myform.Province1.value=frm1.document.regionform.Province.value;" & vbCrLf
    Response.Write "    document.myform.City1.value=frm1.document.regionform.City.value;" & vbCrLf
    If FoundInArr(RegFields_MustFill, "TrueName", ",") = True Then
        Response.Write "    if(document.myform.TrueName.value==''){" & vbCrLf
        Response.Write "        alert('用户名不能为空！');" & vbCrLf
        Response.Write "        document.myform.TrueName.focus();" & vbCrLf
        Response.Write "        return false;" & vbCrLf
        Response.Write "    }" & vbCrLf
    End If
    If rsUser("UserType") = 1 Then
        Response.Write "    document.myform.Country2.value=frm2.document.regionform.Country.value;" & vbCrLf
        Response.Write "    document.myform.Province2.value=frm2.document.regionform.Province.value;" & vbCrLf
        Response.Write "    document.myform.City2.value=frm2.document.regionform.City.value;" & vbCrLf
    End If
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf

    Response.Write "<script language='javascript'>" & vbCrLf
    Response.Write "var tID=0;" & vbCrLf
    Response.Write "function ShowTabs(ID){" & vbCrLf
    Response.Write "  if(ID!=tID){" & vbCrLf
    Response.Write "    TabTitle[tID].className='title5';" & vbCrLf
    Response.Write "    TabTitle[ID].className='title6';" & vbCrLf
    Response.Write "    Tabs[tID].style.display='none';" & vbCrLf
    Response.Write "    Tabs[ID].style.display='';" & vbCrLf
    Response.Write "    tID=ID;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf

    Response.Write "<br>"
    Response.Write "<form name='myform' id='myform' action='User_Info.asp' method='post' onSubmit='javascript:return CheckSubmit();'>" & vbCrLf
    Response.Write "<table width='100%'  border='0' align='center' cellpadding='0' cellspacing='0'>" & vbCrLf
    Response.Write "        <tr align='center'>" & vbCrLf
    Response.Write "            <td id='TabTitle' class='title6' onclick='ShowTabs(0)'>会员信息</td>" & vbCrLf
    Response.Write "            <td id='TabTitle' class='title5' onclick='ShowTabs(1)'>联系信息</td>" & vbCrLf
    Response.Write "            <td id='TabTitle' class='title5' onclick='ShowTabs(2)'>个人信息</td>" & vbCrLf
    Response.Write "            <td id='TabTitle' class='title5' onclick='ShowTabs(3)'>业务信息</td>" & vbCrLf
12 3 4 5 下一页
⌨️ 快捷键说明

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