📄 namecard_index.asp
字号:
<%
'功能：查看所有名片
'参数：request("caseid")=int #当前名片夹ID; request("page")=int #当前页码; request("Name")=chr #按该姓名查询名片
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
maxmessage=10 '每页显示记录数
caseid=request("caseid") : if caseid="" then caseid=1 '当前名片夹ID
currentpage=request("page") '当前页码
SearchName=request("Name") '按该姓名查询名片
'------------------------------------------------
'------------------------------------------------取记录
'分页取名片记录 （返回rs对象）
'rs.recordcount 为记录总数
'rs.PageSize 为本页记录数
'查寻条件
if SearchName<>"" then where="where Name like '%"&SearchName&"%'" else where="where CaseID="&caseid
set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT tbioaCardcase.UserID AS UserID, tbioaNamecard.* FROM tbioaCardcase INNER JOIN tbioaNamecard ON tbioaCardcase.ID = tbioaNamecard.CaseID "&where&" and UserID="&LoginID&" order by tbioaNamecard.ID desc"
rs.open sql,oConn,1,1
Showpage=Paging(rs,maxmessage,currentpage,"caseid="&caseid&"&Name="&SearchName)
'------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>main</title>
<base target="FrmMain">
</head>
<body topmargin="10" leftmargin="10">
<!--#include file="cardcase_menu.html"-->
<hr width="100%" size=1 color="#000000">
<%if SearchName="" then %>
<!--#include file="namecard_head.html"-->
<table width="100" border=0 cellspacing="0" cellpadding="0">
<tr>
<td width=100><img border="0" src="../images/icon_close.gif" align="left"><a href="namecard_add.asp?caseid=<%=caseid%>&page=<%=currentpage%>">添加名片</a></td>
</tr>
</table>
<%else%>
<table width="100%" border=0 cellspacing="0" cellpadding="0">
<tr>
<td width=100%><img border="0" src="../images/icon_list.gif" align="left">姓名包含“<%=SearchName%>”的名片</td>
</tr>
</table>
<%end if%>
<hr width="100%" size=1 color="#000000">
<%=Showpage%>
<br>
<%
if rs.RecordCount=0 then
response.write "<BR><BR>暂时为空！"
else
%>
<br>
<%for i = 0 to rs.PageSize-1 '循环
If rs.EOF Then Exit For
%>
№:<%=i+1%><br>
<table width="100%" cellspacing="1" cellpadding="2" class="tab">
<tr>
<td width="100%" class="tdTop" colspan="4">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td class="tdTop">
<p align="left"><img border="0" src="../images/icon_user.gif" align="left"><b><%=HtmlOut(rs("Name"))%></b> <%if rs("Possie")<>"" then response.write "("&HtmlOut(rs("possie"))&")"%></p>
</td>
<td width="80" class="tdTop">
<p align="left"><img border="0" src="../images/icon_edit.gif" align="left">
<a href="namecard_edit.asp?id=<%=rs("ID")%>&page=<%=currentpage%>&caseid=<%=caseid%>&Name=<%=SearchName%>" class="linkTop">编辑</a></p>
</td>
<td width="80" class="tdTop">
<p align="left"><img border="0" src="../images/icon_dele.gif" align="left">
<a href="namecard_dele.asp?id=<%=rs("ID")%>&page=<%=currentpage%>&caseid=<%=caseid%>&Name=<%=SearchName%>" onClick="return confirm('确定要删除该条名片吗？\n该操作不可恢复！')" class="LinkTop">删除</a>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="12%" class="td1" align="right">单位:</td>
<td width="38%" class="td1"><%=HtmlOut(rs("Unit"))%></td>
<td width="12%" class="td1" align="right">网址:</td>
<td width="38%" class="td1"><a href="<%=HtmlOut(rs("Homepage"))%>" target="_blank"><%=HtmlOut(rs("Homepage"))%></a></td>
</tr>
<tr>
<td class="td1" align="right">办公电话:</td>
<td class="td1"><%=HtmlOut(rs("OfficeTel"))%></td>
<td class="td1" align="right">家庭电话:</td>
<td class="td1"><%=HtmlOut(rs("HomeTel"))%></td>
</tr>
<tr>
<td class="td1" align="right">手机:</td>
<td class="td1"><%=HtmlOut(rs("Mobile"))%></td>
<td class="td1" align="right">E-mail:</td>
<td class="td1"><a href="mailto:<%=HtmlOut(rs("Email"))%>"><%=HtmlOut(rs("Email"))%></a></td>
</tr>
<tr>
<td class="td1" align="right">地址:</td>
<td class="td1"><%=HtmlOut(rs("Address"))%></td>
<td class="td1" align="right">邮编:</td>
<td class="td1"><%=HtmlOut(rs("PostCode"))%></td>
</tr>
<tr>
<td class="td1" align="right" valign="top">其他:</td>
<td class="td1" colspan="3"><%=HtmlOut(rs("Body"))%></td>
</tr>
<tr>
<td class="tdBottom" colspan="4"></td>
</tr>
</table><br>
<%
rs.MoveNext
next
%>
<%
end if
rs.close
%>
</body>
</html>
<%'释放对象变量
oConn.close
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -