📄 list.asp
字号:
<%option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/datefunction.asp" -->
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"
Dim StrSQL,StrSQLGName,objRS,ObjRSGuestName,conn
Dim IntPageCount,IntPageNo,IntPageSize
Dim C,ArrList,i,j,IntRows,IntCols
Dim StrWhere
IntPageNo = Request.QueryString("PageNo")
StrWhere = Request.QueryString("W")
IntPageSize = 16
Set conn=Server.CreateObject("ADODB.Connection")
OpenDBCrm( conn )
If StrWhere = "" Then
StrSQL = "Select ID,Lname,Lposition,Lmobile,Laddress,Lemail,CreateTime,Lcity,Guest_id From T_CRM_LinkMan order by ID"
Else
StrSQL = "Select ID,Lname,Lposition,Lmobile,Laddress,Lemail,CreateTime,Lcity,Guest_id From T_CRM_LinkMan where 1 = 1"& StrWhere & "order by ID"
'Response.write StrSQL
'Response.End
End If
Set ObjRS = conn.Execute(StrSQL)
If ObjRS.EOF Then
Response.Write "<body background='../../../images/bg_1.gif'><table border=0 height='100%' width='100%'><tr><td valign=middle align=center>目前没有任何联系人信息<td></tr></table></body>"
'Response.End
End if
Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(conn)
ArrList = C.List(IntPageNo,IntPageSize,StrSQL) '使用List()函数获得列表数组
IntPageCount = C.GetPageCount() '使用GetPageCount()函数获得总页码
IntRows = C.GetRows() '使用GetRows()获得总返回的行数
IntCols = C.GetCols() '使用GetCols()获得总返回的列数
Sub Main
%>
<table class=Ltable cellspacing=1 cellpadding=3>
<tr class=LHtr>
<td width=1%><input type=checkbox id=0 name=ITEM></td>
<td width=4%>编号</td>
<td width=6% >姓名</td>
<td width=14% >所属客户</td>
<td width=6% >职务</td>
<td width=6%>移动电话</td>
<td width=14% >详细地址</td>
<td width=10%>电子信箱</td>
<td width=10%>创建日期</td>
<td width=6%>城市</td>
</tr>
<%
For i = 0 To IntRows
%>
<tr class=Ltr name=ITEMTR id=<%=ArrList(0,i)%>>
<%
StrSQLGName="Select Gname From T_CRM_Guest Where ID = " & Cint(Arrlist(8,i))
'Response.Write StrSQLGName
Set ObjRSGuestName=conn.Execute(StrSQLGName)
%>
<td><input type=checkbox name=ITEM id=<%=ArrList(0,i)%>></td>
<td align=center><%=ArrList(0,i)%></td>
<td><%=ArrList(1,i)%></td>
<%if ObjRSGuestName.Eof and ObjRSGuestName.Bof Then
%>
<td><font color=red>暂无</font></td>
<%Else%>
<td><%=ObjRSGuestName("Gname")%></td>
<%End if%>
<td><%=ArrList(2,i)%></td>
<td><%=ArrList(3,i)%></td>
<td><%=ArrList(4,i)%></td>
<td><%=ArrList(5,i)%></td>
<td><%=ArrList(6,i)%></td>
<td><%=ArrList(7,i)%></td>
<%
Next
ObjRSGuestName.close
Set ObjRSGuestName=Nothing
%>
</table>
<%
PageFooter IntPageCount,"PageNo"
End Sub
%>
<!-- #include file="Templet.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -