📄 list.asp
字号:
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("ClientID")%>"></TD>
<TD width="124" align="center" valign="middle" style="border: #99ccff 1px solid " ><a href="client.asp?ClientID=<%=rs("ClientID")%>"><%=rs("ClientName")%></TD>
<TD width="150" align="center" valign="middle" style="border: #99ccff 1px solid " ><%if SqlAttachStr(0) <> "" then%><%=rs(SqlAttachStr(0))%> <%else%> <%end if%></TD>
<TD width="150" align="center" valign="middle" style="border: #99ccff 1px solid " ><%if SqlAttachStr(1) <> "" then%><%=rs(SqlAttachStr(1))%> <%else%> <%end if%></TD>
<TD width="150" align="center" valign="middle" style="border: #99ccff 1px solid " ><%if SqlAttachStr(2) <> "" then%><%=rs(SqlAttachStr(2))%> <%else%> <%end if%></TD>
<TD width="152" align="center" valign="middle" style="border: #99ccff 1px solid " ><%if SqlAttachStr(3) <> "" then%><%=rs(SqlAttachStr(3))%> <%else%> <%end if%></TD>
</TR>
<%
rs.movenext
end if
next
end if
%>
<TR valign="middle">
<TD height="30" colspan="7" > <select name="PageSelect">
<%
'生成下拉列表
for i= 1 to 20
%>
<option <%if ListPageSize = i*5 then%>selected<%end if%> value="<%=i*5%>">每页显示<%=i*5%>条</option>
<%
next
%>
<option <%if TotalFlag = 1 then%>selected<%end if%> value="0">..全部显示..</option>
</select>
<input name="NewClient" onClick="javascript:location.href='NewClient.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='../menu.asp'" type="button" class="button_all" id="BackButton" value="返回"> <%if SelectPage<>1 then%><a href="#" name="FirstPage">首页</a> <a href="#" name="PrePage">上一页</a><%else%>首页 上一页<%end if%> <%if SelectPage<>TotalPages then%><a href="#" name="NextPage"> 下一页</a> <a href="#" name="LastPage">末页</a><%else%> 下一页 末页<%end if%> 当前页数:<%=SelectPage%> 总共页数:<%=TotalPages%> 记录总数:<%=TotalRecords%></TD>
<input name="SelPage" type="hidden" value="<%=SelectPage%>">
<input name="TotalPage" type="hidden" value="<%=TotalPages%>">
</TR>
<!--下拉列表响应函数-->
<SCRIPT FOR="PageSelect" EVENT="onChange" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("ReNew")
TheForm.SelPage.value = 1
TheForm.submit()
</SCRIPT>
<!--下拉列表响应函数-->
<!--首页响应函数-->
<SCRIPT FOR="FirstPage" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("ReNew")
TheForm.SelPage.value = 1
TheForm.submit()
</SCRIPT>
<!--首页响应函数-->
<!--首页响应函数-->
<SCRIPT FOR="NextPage" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("ReNew")
TheForm.SelPage.value = TheForm.SelPage.value + 1
TheForm.submit()
</SCRIPT>
<!--首页响应函数-->
<!--首页响应函数-->
<SCRIPT FOR="PrePage" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("ReNew")
TheForm.SelPage.value = TheForm.SelPage.value - 1
TheForm.submit()
</SCRIPT>
<!--首页响应函数-->
<!--首页响应函数-->
<SCRIPT FOR="LastPage" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("ReNew")
TheForm.SelPage.value = TheForm.TotalPage.value
TheForm.submit()
</SCRIPT>
<!--首页响应函数-->
<!--删除响应函数-->
<SCRIPT FOR="DeleteButton" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("ReNew")
MyVar = MsgBox ("你确认要删除选中的客户资料吗？",52, "确认删除")
if MyVar = 6 then
TheForm.Action = "DeleteList.asp"
TheForm.submit()
end if
</SCRIPT>
<!--删除响应函数-->
<!--查询响应函数-->
<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>
<!--查询响应函数-->
<TR align="center" valign="middle">
<TD height="25" colspan="7" valign="middle" style="border: #99ccff 1px solid;"> 显 示 项 目 (4 项) </TD>
</TR>
<TR align="left" valign="middle">
<TD height="25" colspan="7" style="border-left: #99ccff 1px solid;border-right: #99ccff 1px solid;"> 国家/地区
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox01" value="ClientNation" <%if InStr(1,AttachOption,"checkbox01",1)<>0 then%>checked<%end if%>>
国家区号
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox02" value="ClientNationCode" <%if InStr(1,AttachOption,"checkbox02",1)<>0 then%>checked<%end if%>>
省份/直辖市
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox03" value="ClientProvince" <%if InStr(1,AttachOption,"checkbox03",1)<>0 then%>checked<%end if%>>
城市
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox04" value="ClientCity" <%if InStr(1,AttachOption,"checkbox04",1)<>0 then%>checked<%end if%>>
城市区号
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox05" value="ClientAreaCode" <%if InStr(1,AttachOption,"checkbox05",1)<>0 then%>checked<%end if%>>
邮编
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox06" value="ClientMailCode" <%if InStr(1,AttachOption,"checkbox06",1)<>0 then%>checked<%end if%>>
详细地址
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox07" value="ClientAddress" <%if InStr(1,AttachOption,"checkbox07",1)<>0 then%>checked<%end if%>>
电话
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox08" value="ClientPhoneNum" <%if InStr(1,AttachOption,"checkbox08",1)<>0 then%>checked<%end if%>></TD>
</TR>
<TR align="left">
<TD height="25" colspan="7" style="border-left: #99ccff 1px solid;border-right: #99ccff 1px solid;" > 传真
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox09" value="ClientFaxNum" <%if InStr(1,AttachOption,"checkbox09",1)<>0 then%>checked<%end if%>>
电子邮箱
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox10" value="ClientEmail" <%if InStr(1,AttachOption,"checkbox10",1)<>0 then%>checked<%end if%>>
公司主页
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox11" value="ClientHomePage" <%if InStr(1,AttachOption,"checkbox11",1)<>0 then%>checked<%end if%>>
公司年收入
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox12" value="ClientYearIncome" <%if InStr(1,AttachOption,"checkbox12",1)<>0 then%>checked<%end if%>>
员工人数
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox13" value="ClientEmpNum" <%if InStr(1,AttachOption,"checkbox13",1)<>0 then%>checked<%end if%>>
开户银行
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox14" value="ClientAccountBank" <%if InStr(1,AttachOption,"checkbox14",1)<>0 then%>checked<%end if%>>
银行账号
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox15" value="ClientAccountNum" <%if InStr(1,AttachOption,"checkbox15",1)<>0 then%>checked<%end if%>></TD>
</TR>
<TR align="left">
<TD height="25" colspan="7" style="border-left: #99ccff 1px solid;border-right: #99ccff 1px solid;"> 增值税开票名
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox16" value="ClientTaxName" <%if InStr(1,AttachOption,"checkbox16",1)<>0 then%>checked<%end if%>>
增值税号
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox17" value="ClientTaxCode" <%if InStr(1,AttachOption,"checkbox17",1)<>0 then%>checked<%end if%>>
增值税开户银行
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox18" value="ClientTaxBank" <%if InStr(1,AttachOption,"checkbox18",1)<>0 then%>checked<%end if%>>
增值税银行账号
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox19" value="ClientTaxAccNum" <%if InStr(1,AttachOption,"checkbox19",1)<>0 then%>checked<%end if%>>
增值税开户地址
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox20" value="ClientTaxAddress" <%if InStr(1,AttachOption,"checkbox20",1)<>0 then%>checked<%end if%>>
增值税开户电话
<input type="checkbox" onClick="CheckCheckBox(this)" name="T_checkbox21" value="ClientTaxPhoneNum" <%if InStr(1,AttachOption,"checkbox21",1)<>0 then%>checked<%end if%>>
<input type="hidden" name="CheckNum" value=<%=AttachNum%> ></TD>
</TR>
<TR align="center" valign="middle">
<TD height="26" colspan="7" bgColor=#99ccff ><input name="NewView" type="button" class="button_all" id="NewViffew" value="更新"></TD>
</TR>
</form>
<tr>
<td height="1"></td>
<td width="13"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
</TBODY>
</TABLE>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -