📄 updatesdfghxunlu.asp

📁 本oa系统内部短信.手机短信.文件传输.公文收发.邮件服务.共享下载.内部论坛等功能
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/oavbsconn.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="../../index.asp"
MM_grantAccess=false
If Session("userssdfgfhtrh") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="../../Connections/ifr/ifrasp.asp" -->

<%
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_oavbsconn_STRING
Recordset2.Source = "SELECT * FROM 通讯录"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()



Recordset2_numRows = 0
%>
<%
Dim Recordset3__MMColParam
Recordset3__MMColParam = "59"
If (Request.QueryString("ID")  <> "") Then 
  Recordset3__MMColParam = Request.QueryString("ID") 
End If
%>
<%
Dim Recordset3__varuser
Recordset3__varuser = "1"
If (Session("userssdfgfhtrh") <> "") Then 
  Recordset3__varuser = Session("userssdfgfhtrh")
End If
%>
<%
Dim Recordset3
Dim Recordset3_numRows
Set Recordset3 = Server.CreateObject("ADODB.Recordset")
Recordset3.ActiveConnection = MM_oavbsconn_STRING
Recordset3.Source = "SELECT *  FROM 通讯录  WHERE ID = " + Replace(Recordset3__MMColParam, "'", "''") + "  and 个人帐号='" + Replace(Recordset3__varuser, "'", "''") + "'"
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 1
Recordset3.Open()



Recordset3_numRows = 0
%>
<%
Dim Recordset4
Dim Recordset4_numRows

Set Recordset4 = Server.CreateObject("ADODB.Recordset")
Recordset4.ActiveConnection = MM_oavbsconn_STRING
Recordset4.Source = "SELECT * FROM 通讯录组别"
Recordset4.CursorType = 0
Recordset4.CursorLocation = 2
Recordset4.LockType = 1
Recordset4.Open()

Recordset4_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Recordset2_numRows = Recordset2_numRows + Repeat1__numRows
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="../../css/link.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {
	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>
</head>

<body>
<div align="center"></div>



<div align="center">
  <% If Not Recordset3.EOF Or Not Recordset3.BOF Then %>
  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td><form name="form1" method="post" action="uppostdfg.asp">
          <div align="center">
            <table width="760" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="814" height="20"><table width="760" height="21" border="0" cellpadding="0" cellspacing="0" background="../../img/bw/line.gif">
                    <tr>
                      <td><div align="center"><span class="style1">修改记录</span></div></td>
                    </tr>
                </table></td>
              </tr>
            </table>
            <table width="760" border="0" cellpadding="0" cellspacing="1" bgcolor="#5AAE18">
              <tr>
                <td bgcolor="#FFFFFF"><table width="99%"  border="0" cellpadding="2" cellspacing="0">
                    <tr>
                      <td width="18%">姓名
                          <input name="id" type="hidden" id="id" value="<%=(Recordset3.Fields.Item("ID").Value)%>">
                      </td>
                      <td width="14%">手机</td>
                      <td width="14%">电话</td>
                      <td width="14%">Email</td>
                      <td width="14%">地址</td>
                      <td width="16%">邮编</td>
                      <td width="16%">修　改</td>
                    </tr>
                    <tr>
                      <td><input name="姓名" type="text" id="姓名" value="<%=(Recordset3.Fields.Item("姓名").Value)%>" size="12"></td>
                      <td><input name="手机" type="text" id="手机" value="<%=(Recordset3.Fields.Item("手机").Value)%>" size="12"></td>
                      <td><input name="电话" type="text" id="电话" value="<%=(Recordset3.Fields.Item("电话").Value)%>" size="12"></td>
                      <td><input name="email" type="text" id="email" value="<%=(Recordset3.Fields.Item("email").Value)%>" size="15"></td>
                      <td><input name="地址" type="text" id="地址" value="<%=(Recordset3.Fields.Item("地址").Value)%>"></td>
                      <td><input name="邮编" type="text" id="邮编" value="<%=(Recordset3.Fields.Item("邮政编码").Value)%>" size="12">
                      </td>
                      <td><input type="submit" name="Submit" value="修  改"></td>
                    </tr>
                </table></td>
              </tr>
            </table>
            <p>&nbsp;</p>
          </div>
      </form></td>
    </tr>
  </table>
  <p> <a href="javascript:history.go(-1)"><img src="../gw/img/gif/back.gif" width="37" height="45" border="0"></a></p>
    <p><br>
    </p>
  <% End If ' end Not Recordset3.EOF Or NOT Recordset3.BOF %>
  <% If Recordset3.EOF And Recordset3.BOF Then %>
  <p>数据不存在<a href="javascript:history.go(-1)"><img src="../gw/img/gif/back.gif" width="37" height="45" border="0"></a></p>
  <% End If ' end Recordset3.EOF And Recordset3.BOF %>
</div>
</body>
</html>

<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
Recordset3.Close()
Set Recordset3 = Nothing
%>
<%
Recordset4.Close()
Set Recordset4 = Nothing
%>
⌨️ 快捷键说明

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