📄 admin_latentcust.asp

📁 本程序是一款比较完善的图书租赁系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="ChkErr.asp"-->
<!--#include file="ChkAdmin.asp"-->
<!--#include file="ChkSQL.asp"-->
<!--#include file="ResultMsg.asp"-->
<%
Dim ShowCount
Dim tmpRecordCount

If Request("IsShow")<>"" Then
	Dim tmpTD
	tmpTD="<td class=TableBody2 align=center width=25% >"
	
	If IsNumeric(Request("SearchStr"))=False Then
		Response.Write GetErr(11)
		Response.End
	End If
	
	strSQL="SELECT * FROM [UserInfo] ORDER BY UI_RentCount_N DESC"
	
	Set objRS=Server.CreateObject("ADODB.RecordSet")
	objRS.Open strSQL,objConn,1,3
	
	'所显示的记录
	If objRS.RecordCount>=Cint(Request("SearchStr")) Then
		'如果所读取的记录大于等于管理员指定显示的记录数，则显示管理员所要显示的记录条数
		tmpRecordCount=Request("SearchStr")
	Else
		'如果所读取的记录小于管理员指定的数字，则显示所有的记录条数
		tmpRecordCount=objRS.RecordCount
	End If
	
	Response.Write "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>"
	Response.Write "<link href=style.css rel=stylesheet type=text/css>"
	Response.Write "<table class=tableborder1 align=center cellspacing=1 cellpadding=3 width=30% height=25% >"
	Response.Write "<tr><th id=tabletitlelink height=25 style=font-weight:normal align=center colspan=4><b>潜在的客户列表</b></th></tr>"
	Response.Write "<tr>"&tmpTD&"排位"&tmpTD&"用户名"&tmpTD&"Email"&tmpTD&"QQ</tr>"
	
	For i=1 To tmpRecordCount
		Response.Write "<tr>"&tmpTD&i&tmpTD&"<a href=modifyUser.asp?uid="&objRS("UI_ID_N")&" target=_blank>"&objRS("UI_Name_S")&"</a>"&tmpTD&"<a href=mailto:"&objRS("UI_Email_S")&">"&objRS("UI_Email_S")&"</a>"&tmpTD&objRS("UI_QQ_S")&"</tr>"
		objRS.MoveNext
	Next
	objRS.Close
	Response.Write "</table>"
Else
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>潜在的客户</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<form action=admin_latentcust.asp method=post>
<br><br><br><br><br><br><br><br><br><br>
<table class=tableborder1 align=center cellspacing=1 cellpadding=3 width=50% height=25%>
<tr><th colspan=2 id=tabletitlelink height=25 style=font-weight:normal align=center><b>近期热门影片</b></th></tr>
<tr><td class=TableBody2 align=center width=20%>显示<input type=text maxlength=3 name=SearchStr size=2 value=10>个潜在的客户&nbsp;<input type=submit value=显示></td></tr>
</table> 
<input type=hidden name=IsShow value=yes>
</form>
<body>
</body>
</html>
<%End If%>
⌨️ 快捷键说明

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