search_area_fund.asp
来自「这是去年开发的中移鼎讯手机进销存系统 大家」· ASP 代码 · 共 68 行
ASP
68 行
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/mobile_sale.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="topbg">
<td height="22" colspan="2" align="center"><strong>回 笼 资 金 管 理</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30">
<a href="Fund.asp">回笼资金管理</a> |
<a href="Fund.asp?T=1">今日回笼资金</a> |
<a href="Fund.asp?Action=Add">添加</a></td>
</tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title">
<td height="22" colspan="2"><div align="center">您所要查找的地方有</div></td>
</tr>
<tr>
<td class="tdbg">
<%
Dim area,CityName,CountyName
Dim Rst,Sqlt
area = Request("area")
Sql = "Select * from County where CountyName like '%"& area &"%'"
Call sql_open(Rs,sql,conn,1,1)
if Rs.eof and Rs.bof then
Sqlt = "Select * from City where CityName like '"& area &"'"
Call sql_open(Rst,sqlt,conn,1,1)
if Rst.eof and Rst.bof then
response.write "没有您所要查找的地方。"
response.end
else
Response.write "您所想查找的有：<br>"
do while not Rst.eof
Response.write Rst("CityName")&"<br>"
Rst.Movenext
Loop
end if
else
Response.write "您所想查找的有：<br>"
do while not Rs.eof
Response.write Rs("CountyName")&"<br>"
Rs.Movenext
Loop
end if
%>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?