📄 search_area_fund.asp

📁 这是去年开发的中移鼎讯手机进销存系统大家

💻 ASP

字号:

<!--#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>&nbsp;|&nbsp;
	<a href="Fund.asp?T=1">今日回笼资金</a>&nbsp;|&nbsp;
	<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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -