?? list.asp
字號(hào):
<!--#include file="DBCn.asp"-->
<%
'獲得傳遞參數(shù)
ListPageSize = request("PageSelect")
if ListPageSize = "" then
ListPageSize = 15
end if
ListPageSize = Cint(ListPageSize)
SelectPage = request("SelPage")
'response.write SelectPage
'response.write "$"
if SelectPage = "" then
SelectPage = 1
end if
SelectPage = Cint(SelectPage)
SearchOption =request("S_SearchOption")
if SearchOption = "" then
SearchOption = 0
end if
SearchOption = Cint(SearchOption)
SearchRelation = request("S_Relation")
if SearchRelation = "" then
SearchRelation = "包含"
end if
SearchText = request("T_SearchText")
SqlSearchText = replace(SearchText,"'","''")
SqlSearchText = replace(SqlSearchText,"[","[[]")
SqlSearchText = replace(SqlSearchText,"]","[]]")
SqlSearchText = replace(SqlSearchText,"%","[%]")
SqlSearchText = replace(SqlSearchText,"_","[_]")
%>
<%
'讀取數(shù)據(jù)庫(kù)數(shù)據(jù)
SqlKeyChr = Array("Name","Nation","Province","Address")
Dim Sqlstr
Sqlstr = "select * from Customer"
if SearchText <> "" then
if SearchRelation = "包含" then
Sqlstr = Sqlstr & " Where " & SqlKeyChr(SearchOption) & " Like " & " '%"&SqlSearchText&"%' "
else
Sqlstr = Sqlstr & " Where " & SqlKeyChr(SearchOption) & " not Like " & " '%"&SqlSearchText&"%' "
end if
end if
set rs=server.createobject("adodb.recordset")
rs.open Sqlstr,conn,3
SqlAttachNameTab = Array("國(guó)家","省/市","地址")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>客戶管理系統(tǒng)</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Pragma content=no-cache>
<META content="MSHTML 6.00.2715.400" name=GENERATOR>
</HEAD>
<LINK href="css.css" rel=stylesheet>
<BODY><BR>
<TABLE width="751" border=0 align=center cellPadding=0 cellSpacing=0>
<!--DWLayoutTable-->
<TBODY>
<form action="list.asp" method="post" name="ReNew">
<TR>
<TD height="24" valign="top" colspan="3" bgcolor="#6699FF" >
<font face="黑體" size="3">客戶信息列表</font></TD>
<TD colspan="5" align="right" valign="middle" bgcolor="#DDDDDD" > <select name="S_SearchOption" class="text100" id="S_SearchOption">
<option value="0" <%if SearchOption = 0 then%>selected<% end if %>>客戶名稱</option>
<%
'生成下拉列表
for i=1 to 3
%>
<option value="<%=i%>" <%if SearchOption = i then%>selected<% end if %>><%=SqlAttachNameTab(i-1)%></option>
<%
next
%>
</select>
<select name="S_Relation" class="text100" id="S_Relation">
<option value="包含" <%if SearchRelation = "包含" then%>selected<% end if %>>包含</option>
<option value="不包含" <%if SearchRelation = "不包含" then%>selected<% end if %>>不包含</option>
</select>
<input name="T_SearchText" type="text" size="20" maxlength="50" value="<%=SearchText%>">
<input name="SearchButton" type="submit" class="button_all" id="Search" value="查詢"></TD>
</TR>
<TR>
<TD height="25" colspan="2" valign="top" style="border: #99ccff 1px solid " bgcolor="#6699FF"> </TD>
<TD width="274" align="center" valign="middle" style="border: #99ccff 1px solid " bgcolor="#6699FF" colspan="2">客戶名稱</TD>
<TD width="75" align="center" valign="middle" style="border: #99ccff 1px solid " bgcolor="#6699FF">
國(guó)家</TD>
<TD width="75" align="center" valign="middle" style="border: #99ccff 1px solid " bgcolor="#6699FF">
省/市</TD>
<TD width="302" align="center" valign="middle" style="border: #99ccff 1px solid " bgcolor="#6699FF" colspan="2">
地址</TD>
</TR>
<%
'顯示處理
TotalPages = 1
TotalRecords = 0
TotalFlag = 0
if not(rs.bof or rs.eof) then
TotalRecords = rs.recordcount
if ListPageSize = 0 then
ListPageSize = TotalRecords
TotalFlag = 1
end if
rs.pagesize = ListPageSize
TotalPages = rs.pagecount
if SelectPage > TotalPages then
SelectPage = 1
end if
rs.absolutepage = SelectPage
for i = 1 to ListPageSize
if not(rs.bof or rs.eof) then
%>
<TR>
<TD height="25" colspan="2" align="center" valign="middle" style="border: #99ccff 1px solid " ><input type="checkbox" name="ckdelete<%=i%>" value="<%=rs("ID")%>"></TD>
<TD width="274" align="center" valign="middle" style="border: #99ccff 1px solid " colspan="2" ><a href="Customer.asp?ClientID=<%=rs("ID")%>"><%=rs("Name")%></a><p align="left"></TD>
<TD width="75" align="center" valign="middle" style="border: #99ccff 1px solid " ><%=rs("Nation")%></TD>
<TD width="75" align="center" valign="middle" style="border: #99ccff 1px solid " ><%=rs("Province")%></TD>
<TD width="302" align="center" valign="middle" style="border: #99ccff 1px solid " colspan="2" ><%=rs("Address")%></TD>
</TR>
<%
rs.movenext
end if
next
end if
%>
<TR valign="middle">
<TD height="30" colspan="8" > <select name="PageSelect">
<%
'生成下拉列表
for i= 1 to 4
%>
<option <%if ListPageSize = i*5 then%>selected<%end if%> value="<%=i*5%>">每頁(yè)顯示<%=i*5%>條</option>
<%
next
%>
<option <%if TotalFlag = 1 then%>selected<%end if%> value="0">..全部顯示..</option>
</select>
<input name="NewClient" onClick="javascript:location.href='Add.asp'" type="button" class="button_all" id="NewClient" value="新建">
<input name="DeleteButton" type="button" class="button_all" id="DeleteClient" value="刪除">
<input name="BackButton" onClick="javascript:location.href='Main.asp'" type="button" class="button_all" id="BackButton" value="返回"> <%if SelectPage<>1 then%><a href="#" name="FirstPage">首頁(yè)</a> <a href="#" name="PrePage">上一頁(yè)</a><%else%>首頁(yè) 上一頁(yè)<%end if%> <%if SelectPage<>TotalPages then%><a href="#" name="NextPage"> 下一頁(yè)</a> <a href="#" name="LastPage">末頁(yè)</a><%else%> 下一頁(yè) 末頁(yè)<%end if%> 當(dāng)前頁(yè)數(shù):<%=SelectPage%> 總共頁(yè)數(shù):<%=TotalPages%> 記錄總數(shù):<%=TotalRecords%></TD>
<input name="SelPage" type="hidden" value="<%=SelectPage%>">
<input name="TotalPage" type="hidden" value="<%=TotalPages%>">
</TR>
<!--下拉列表響應(yīng)函數(shù)-->
<SCRIPT FOR="PageSelect" EVENT="onChange" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("ReNew")
TheForm.SelPage.value = 1
TheForm.submit()
</SCRIPT>
<!--下拉列表響應(yīng)函數(shù)-->
<!--首頁(yè)響應(yīng)函數(shù)-->
<SCRIPT FOR="FirstPage" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("ReNew")
TheForm.SelPage.value = 1
TheForm.submit()
</SCRIPT>
<!--首頁(yè)響應(yīng)函數(shù)-->
<!--首頁(yè)響應(yīng)函數(shù)-->
<SCRIPT FOR="NextPage" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("ReNew")
TheForm.SelPage.value = TheForm.SelPage.value + 1
TheForm.submit()
</SCRIPT>
<!--首頁(yè)響應(yīng)函數(shù)-->
<!--首頁(yè)響應(yīng)函數(shù)-->
<SCRIPT FOR="PrePage" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("ReNew")
TheForm.SelPage.value = TheForm.SelPage.value - 1
TheForm.submit()
</SCRIPT>
<!--首頁(yè)響應(yīng)函數(shù)-->
<!--首頁(yè)響應(yīng)函數(shù)-->
<SCRIPT FOR="LastPage" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("ReNew")
TheForm.SelPage.value = TheForm.TotalPage.value
TheForm.submit()
</SCRIPT>
<!--首頁(yè)響應(yīng)函數(shù)-->
<!--刪除響應(yīng)函數(shù)-->
<SCRIPT FOR="DeleteButton" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("ReNew")
MyVar = MsgBox ("你確認(rèn)要?jiǎng)h除選中的客戶資料嗎？",52, "確認(rèn)刪除")
if MyVar = 6 then
TheForm.Action = "DeleteList.asp"
TheForm.submit()
end if
</SCRIPT>
<!--刪除響應(yīng)函數(shù)-->
<!--查詢響應(yīng)函數(shù)-->
<SCRIPT FOR="SearchButton" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("ReNew")
TheForm.SelPage.value = 1
TheForm.submit()
</SCRIPT>
<SCRIPT FOR="NewView" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("ReNew")
TheForm.SelPage.value = 1
TheForm.submit()
</SCRIPT>
<!--查詢響應(yīng)函數(shù)-->
<tr>
<TD height="16" colspan="8" ><hr color="#566CDB" align="center" size="1"></TD>
</tr>
<TR align="center" valign="middle">
<TD height="26" colspan="8" bgColor=#99ccff >
<font size="2" color="#008000">客戶管理系統(tǒng) Customer Manage System</font></TD>
</TR>
</form>
<tr>
<td height="1"></td>
<td width="13"></td>
<td></td>
<td></td>
<td colspan="2"></td>
<td></td>
<td></td>
</tr>
</TBODY>
</TABLE>
</BODY></HTML>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -