addressto.asp

是个不错的文件代码,希望大家好好用,

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Inc/Config.asp"-->
<% MenuID=3 : OpenDB = True : Title = "通过 地名 的查询结果 - " & SiteName %>
<!--#include file="Inc/Menus.asp"-->
<!--#include file="Inc/Function.asp"-->
<br>
<!-------------------------------------------------------------------------->
<script language="javascript">
	function CopyContent(Obj,MsgObj) 
	{
		//var CrLf = "  ///////  " + clipboardData.getData("text");
		window.clipboardData.setData("text", Obj.value);
		MsgObj.innerHTML="<font color='#CC5200'>复制成功</font>";
	}
</script>
<%
Dim Word,Rs,SQL,I
Word = Trim(Request.Form("address"))
If Len(Word)<2 Or (Len(Word)<4 And IsNumeric(Word)) Then
	Response.Write("<center><br> <br>请先输入关键字（最少两个字）！<br> <br><a href=""Javascript:history.back();"">点击返回</a><br></center>")
Else
	Call AddSearch(Word,7)'写入查询记录
	Set Rs=Server.CreateObject("ADODB.RecordSet")
	If Len(Word)=6 And IsNumeric(Word) Then
		SQL="Select Top 500 * From ZipCode Where Zip = "&Word&" Order By Zip"
	Else
		SQL="Select Top 500 * From ZipCode Where Address Like '%"&Word&"%' Order By Zip"
	End If
	Rs.Open SQL,Conn
	If Rs.Eof Then
		Response.Write("<center><br> <br>没有找到包含“<strong style='Color:Red;'>"&Word&"</strong>”的数据！<br> <br><a href=""Javascript:history.back();"">点击返回</a><br></center>")
	Else
		'-----------------------------
		I = 0
		Do While Not Rs.Eof
		%>
			<table width="680" height="30"  border="0" align="center" cellpadding="0" cellspacing="0">
			  <tr onmousemove=this.style.backgroundColor='#EEEEEE'; onmouseout=this.style.backgroundColor='';>
				<td width="59" align="center" style="font-size:14px;font-family:黑体;"><strong><%= FormatInt(Rs("Zip"),6) %></strong></td>
				<td width="137" style="font-size:14px;"><%=Rs("Province")&"-"&Rs("City")%></td>
				<td width="296" style="font-size:14px;"><%= Replace(Rs("Address"),Word,"<Font Color='#993300'>"&Word&"</Font>") %></td>
				<td width="50"></td>
				<td width="55"><Span id="CopyMsg_<%=I%>" align="center"></Span></td>
				<td style="font-size:14px;" width="53" align="center"><a href="#NOURL" onClick="CopyContent(Content_<%=I%>,CopyMsg_<%=I%>)"><span style="color:Green;">复制</span></a></td>
			  </tr>
			</table>
			<input type="hidden" name="Content" ID="Content_<%=I%>" value="<%=Rs("Province")&" - "&Rs("City")&"   "&Rs("Address")&"  邮编:"&Rs("Zip")%>">
			<%
			I = I+1
			Rs.MoveNext
		Loop
		'-----------------------------
		Rs.Close
		Set Rs=Nothing
	End If
End If	'是否未输入数据？
%>
<!-------------------------------------------------------------------------->
<br>&nbsp;<br>
<!--#include file="Inc/Bottom.asp"-->