📄 myseldeatal.asp
字号:
' move the cursor to the selected record
MM_index = 0
While (Not MM_rs.EOF And MM_index < MM_offset)
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
End If
%>
<%
' *** Move To Record: update recordset stats
' set the first and last displayed record
Recordset2_first = MM_offset + 1
Recordset2_last = MM_offset + MM_size
If (MM_rsCount <> -1) Then
If (Recordset2_first > MM_rsCount) Then
Recordset2_first = MM_rsCount
End If
If (Recordset2_last > MM_rsCount) Then
Recordset2_last = MM_rsCount
End If
End If
' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links
Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev
Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam
MM_keepMove = MM_keepBoth
MM_moveParam = "index"
' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
MM_moveParam = "offset"
If (MM_keepMove <> "") Then
MM_paramList = Split(MM_keepMove, "&")
MM_keepMove = ""
For MM_paramIndex = 0 To UBound(MM_paramList)
MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
End If
Next
If (MM_keepMove <> "") Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If
' set the strings for the move to links
If (MM_keepMove <> "") Then
MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"
End If
MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = MM_urlStr & "0"
MM_moveLast = MM_urlStr & "-1"
MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
MM_movePrev = MM_urlStr & "0"
Else
MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>
<html>
<head>
<%
function HTMLEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(13), "")
fString = replace(fString,chr(32)," ")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode = fString
end function
%>
<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;
}
.style4 {color: #FFFFFF}
.style5 {color: #000000}
.style6 {color: #000000; font-weight: bold; }
body {
margin-top: 0px;
}
.style8 {font-size: 12px}
.style9 {
color: #5AAE18;
font-weight: bold;
}
.style2 {font-size: 12px}
.style2 {font-size: 12px}
-->
</style>
</head>
<body>
<div align="center">
<table width="100%" height="23" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="39%"><div align="right"></div></td>
<td width="3%"><div align="center"><img src="../../img/txl/29.gif" width="16" height="16"></div></td>
<td width="8%"><a href="writexunlu.asp">单位通讯录</a></td>
<td width="2%"><img src="../../img/txl/28.gif" width="16" height="16"></td>
<td width="8%"><div align="center"><a href="mytongxunlu.asp">我的通讯录</a></div></td>
<td width="2%"><div align="center"><img src="../../img/txl/15.gif" width="16" height="16"></div></td>
<td width="8%"><div align="center"><a href="addselfinfo.asp">添加联系人</a></div></td>
<td width="2%"><div align="center"><img src="../../img/txl/26.gif" width="16" height="16"></div></td>
<td width="7%"><div align="center"><a href="addgroup.asp">组别管理</a></div></td>
<td width="2%"><div align="right"><img src="../../img/txl/From.gif" width="16" height="16"></div></td>
<td width="11%"><div align="center">
<%if r.eof and r.bof then%>
<a href="addentertongxunlu.asp">提交办公通讯录</a>
<%else%>
<a href="adminmyselfforen.asp">管理办公通讯录</a>
<%end if%>
</div></td>
<td width="2%"><div align="right"><img src="../../img/txl/hn2_sunny.gif" width="19" height="19"></div></td>
<td width="6%"><div align="center"><a href="../bbs/updatimgpath.asp">上传头像</a></div></td>
</tr>
</table>
<div align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#5AAE18">
<tr>
<td width="6" height="21"><img src="../../img/bbs/leftlin1.gif" width="6" height="21"></td>
<td width="936" bgcolor="#5AAE18"><div align="center"><span class="style4"><span class="style1">通 讯 录 系 统</span></span></div></td>
<td width="6" height="21"> </td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><form name="form1" method="post" action="upinfipost.asp" onSubmit="return dis()">
<div align="center">
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#5AAE18">
<tr>
<td width="14%" bgcolor="#FFFFFF"><div align="right">姓 名：</div></td>
<td colspan="2" bgcolor="#FFFFFF"><%=(Recordset2.Fields.Item("姓名").Value)%> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">手 机：</div></td>
<td width="28%" bgcolor="#FFFFFF"> <%=(Recordset2.Fields.Item("手机").Value)%> </td>
<td width="58%" bgcolor="#FFFFFF">小灵通： <%=(Recordset2.Fields.Item("小灵通").Value)%> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">办公电话： </div></td>
<td bgcolor="#FFFFFF"> <%=(Recordset2.Fields.Item("办公电话").Value)%> </td>
<td bgcolor="#FFFFFF">宅 电： <%=(Recordset2.Fields.Item("家庭电话").Value)%> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">宿舍电话：</div></td>
<td bgcolor="#FFFFFF"> <%=(Recordset2.Fields.Item("宿舍电话").Value)%> </td>
<td bgcolor="#FFFFFF">传 真： <%=(Recordset2.Fields.Item("传真").Value)%> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">Email： </div></td>
<td bgcolor="#FFFFFF"> <%=(Recordset2.Fields.Item("email").Value)%> </td>
<td bgcolor="#FFFFFF">主 页： <%=(Recordset2.Fields.Item("主页").Value)%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">Q Q：</div></td>
<td bgcolor="#FFFFFF"> <%=(Recordset2.Fields.Item("qq").Value)%> </td>
<td bgcolor="#FFFFFF">Msn： <%=(Recordset2.Fields.Item("msn").Value)%> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">地 址：</div></td>
<td bgcolor="#FFFFFF"> <%=(Recordset2.Fields.Item("地址").Value)%> </td>
<td bgcolor="#FFFFFF">邮 编： <%=(Recordset2.Fields.Item("邮政编码").Value)%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">备 注：</div></td>
<td colspan="2" bgcolor="#FFFFFF"><%=HTMLEncode(Recordset2.Fields.Item("备注").Value)%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">组 别：</div></td>
<td colspan="2" bgcolor="#FFFFFF"><%=(Recordset2.Fields.Item("组别").Value)%></td>
</tr>
<tr><%dim addtime,uptime
addtime=Recordset2.Fields.Item("添加时间")
uptime=Recordset2.Fields.Item("最后更新时间")%>
<td bgcolor="#FFFFFF"><div align="right">添加时间：</div></td>
<td colspan="2" bgcolor="#FFFFFF"><%=addtime%> <%if addtime<>uptime then%>最后更新：<%=uptime%><%end if%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> </td>
<td colspan="2" bgcolor="#FFFFFF"><a href="updateselinfo.asp?id=<%=(Recordset2.Fields.Item("ID").Value)%>">修改</a> <a href="delself.asp?id=<%=(Recordset2.Fields.Item("ID").Value)%>" onClick="return confirm('您确定要删除吗？')">删除</a> <a href="../gw/out/outforenseeself.asp?n=<%=(Recordset2.Fields.Item("姓名").Value)%>&id=<%=(Recordset2.Fields.Item("ID").Value)%>">导出</a></td>
</tr>
</table>
</div>
</form></td>
</tr>
</table>
<a href="javascript:history.go(-1)">返回
</a> </div>
<div align="center"> </div>
</div>
<div align="center">
<p><br>
<br>
<br>
</p>
</div>
</body>
</html>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset3.Close()
Set Recordset3 = Nothing
%>
<%
r.Close()
Set r = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -