📄 index.asp

📁 办公自动化系统适用于办公室的各种几本功能的操作功能比较简单
💻 ASP
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/connection.asp"-->
<%
SelectID=Session("SelectID")
LoginID=trim(session("LoginID"))
if LoginID="" then LoginID=0
if SelectID="" then SelectID=LoginID
title=crequest("title")

ID=trim(request("ID"))
Delete=trim(request("Delete"))
if Delete="true" and ID<>"" and isnumeric(ID) then
	Conn.execute "delete tblAddressBook Where ID="& ID
end if

maxmessage=15
currentpage=request("page")
if currentpage="" then 
	currentpage=1
end if

set rs=Server.CreateObject("ADODB.RecordSet")
sql="select ID,Name,Email,OfficeTel,HomeTel,Homepage,QQ,Mobile,Unit,Address,Body,PostCode from tblAddressBook where ManageID="& LoginID 
if title<>"" then
sql=sql& " and Title like '%"&title&"%'"
end if
sql=sql& " order by name"
rs.pagesize=maxmessage
rs.open sql,Conn,1,1
totalpage=rs.pagecount
totalmessage=rs.recordcount
if totalmessage<>0 then
	rs.AbsolutePage=currentpage
	msgArr=rs.getrows(maxmessage)
end if

rs.close%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../CSS/main.css">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<div align=center>
<table border=0 width="85%">
<tr>
<td>
<form name="frmSearch" method="post" action="">
查找：姓名 <input type="text" name="title" value="<%=title%>" class="input" size=15 maxlength=20>
<INPUT TYPE="submit" name="cmdUp" value="检  索" class="font9boldwhite">
</td>
<td width="20%">添加新联系人：</td>
<td><a href="AddressEdit.asp"><img src="../images/add.gif" border=0 alt="添加新联系人"></a>
</td>
</tr>
</table>
</div>

<div align=center>
<table border=0 width="85%">

<tr><td colspan=2><hr size=1 width="100%"></td></tr>

<tr><td colspan=2>
<%
response.write "个人通讯录里 共" & totalmessage & "条/" & totalpage & "页，每页"& maxmessage &"条"
if totalpage>0 then
	response.write "，第" & currentpage & "页　"
end if

if totalpage>1 then
	if currentpage>1 then%>
		<a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?page=<%=currentpage-1%>&title=<%=title%>">上页</a>　　
		<%
	end if

	if currentpage+1<=totalpage then%>
		<a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?page=<%=currentpage+1%>&title=<%=title%>">下页</a>
		<%
	end if
end if
%>
</td></tr>
</table>
</div>
<%
if isempty(msgArr) then
	response.write "<BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;暂时为空！"
else
for i = 0 to UBound(msgArr,2) '循环
	%><div align=center>
	<table border=0 width="85%" bgcolor=#0d85ff cellspacing=1 cellpadding=1>
		<tr>
			<td colspan=2 align=center width="50%" valign=center>
			<font color=#ffffff><%="<b>"&trim(msgarr(1,i))&"</b>"%></font>
			</td>
			<td colspan=2  width="50%" align=right>
				<table border=0 cellpadding=0 cellpadding=0 >
				<tr><td><a href="AddressEdit.asp?id=<%=trim(msgarr(0,i))%>"><img src="../images/edit.gif" border=0></a></td>
				<td><a href="index.asp?delete=true&id=<%=trim(msgarr(0,i))%>" onclick="return CheckDelete();"><img src="../images/delete1.gif" border=0></a></td></tr></table>
			</td>	
		</tr>
		<tr bgcolor=#ffffff>
			<td WIDTH="15%"><b>姓名</b></td>
			<td WIDTH="35%"><%=trim(msgarr(1,i))%></td>
			<td width="15%"><b>E-mail</b></td>
			<td width="35%"><%=trim(msgarr(2,i))%></td>
		</tr>

		<tr bgcolor=#ffffff>
			<td><b>电话(O)</b>
			</td>
			<td><%=trim(msgarr(3,i))%></td>
			
			<td><b>电话(H)</b>
			</td>
			<td><%=trim(msgarr(4,i))%></td>
		</tr>
		<tr bgcolor=#ffffff>
			<td><b>QQ号码</b>
			</td>
			<td><%=trim(msgarr(6,i))%></td>
			<td><b>手机号码</b>
			</td>
			<td><%=trim(msgarr(7,i))%></td>
		</tr>
		<tr bgcolor=#ffffff>
			<td><b>工作单位</b>
			</td>
			<td><%=trim(msgarr(8,i))%></td>
			<td><b>邮政编码</b>
			</td>
			<td><%=trim(msgarr(11,i))%></td>
		</tr>
		<tr bgcolor=#ffffff>
			<td><b>详细地址</b>
			</td>
			<td><%=trim(msgarr(9,i))%></td>
			<td><b>个人主页</b>
			</td>
			<td>
			<%if trim(msgarr(5,i))<>"" and trim(msgarr(5,i))<>"http://" then%>
			<a target="_blank" href="<%=trim(msgarr(5,i))%>"><%=trim(msgarr(5,i))%></a>
			<%end if%>
			</td>
		</tr>
		<tr bgcolor=#ffffff>
			<td><b>简单介绍</b></td>
			<td colspan=3>
			<%=replace(replace(server.htmlencode(msgarr(10,i)&""),chr(13),"<br>")," ","&nbsp;")%>
			</td>
		</tr>
	</table><BR><BR></div>
	<%
next
end if
%>

</table>
</BODY>
</HTML>
<script language=javascript>
function CheckDelete()
{
	return confirm("确实删除吗？");
}
</script>
<!--#include file="../inc/connclose.asp"-->
<%
Function GetTableValue(TableName,Field,ValueField,Value)
	if TableName<>"" and Value<>"" then
		Set RsTmp = Server.Createobject("Adodb.recordset")
		strSql = "Select "& Field &" from "& TableName &" where "& ValueField &"='"& Value &"'"
		Rstmp.open strSql,Conn,1,1
		If not Rstmp.eof then
			GetTableValue=trim(Rstmp(Field))
		else
			GetTableValue=""
		end if
		Rstmp.close
		set RsTmp = Nothing
	else
		GetTableValue=""
	end if
End Function
Function GetRelative(PlanID)
	if PlanID<>"" and isnumeric(planid) then
		Set RsTmp = Server.Createobject("Adodb.recordset")
		strSql = "Select count(*) as num from tblPlanRelative where PlanID ="& PlanID
		Rstmp.open strSql,Conn
		If not Rstmp.eof then
			GetRelative=trim(Rstmp("num"))
		else
			GetTableValue=0
		end if
		Rstmp.close
		set RsTmp = Nothing
	else
	GetRelative=0
	end if
end function
%>
⌨️ 快捷键说明

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