📄 delghxunlu.asp
字号:
<%
Response.ExpiresAbsolute=now()-1
Response.CacheControl="no-cache"
%>
<%
' *** 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/oavbsconn.asp" -->
<!--#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>
<% If Not Recordset3.EOF Or Not Recordset3.BOF Then %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><form name="form1" method="get" action="delpostggf.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 colspan="7"><div align="center" class="style1"></div></td>
</tr>
<tr>
<td width="18%"><div align="center">姓名
<input name="id" type="hidden" id="id" value="<%=(Recordset3.Fields.Item("ID").Value)%>">
</div></td>
<td width="14%"><div align="center">手机</div></td>
<td width="14%"><div align="center">电话</div></td>
<td width="14%"><div align="center">Email</div></td>
<td width="14%"><div align="center">地址</div></td>
<td width="16%"><div align="center">邮编</div></td>
<td width="16%"><div align="center">删除</div></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> </p>
</div>
</form></td>
</tr>
</table>
<div align="center">
<p><a href="javascript:history.go(-1)"><img src="../gw/img/gif/back.gif" width="37" height="45" border="0"></a><br>
</p>
</div>
<% End If ' end Not Recordset3.EOF Or NOT Recordset3.BOF %>
<p> </p>
<p align="center">
<% If Recordset3.EOF And Recordset3.BOF Then %>
数据不存在..<a href="javascript:history.go(-1)"><img src="../gw/img/gif/back.gif" width="37" height="45" border="0"></a>
<% End If ' end Recordset3.EOF And Recordset3.BOF %>
</p>
</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 + -