📄 index.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
字号:
<%
   Option Explicit
   Dim Conn,Rs,Sql,ConnData
   Dim ACCDB

   Sub DBConnBegin()
	 ACCDB = "Tel.mdb"
     On Error Resume Next
	 If IsObject(Conn) = False Then
       Set Conn = Server.CreateObject("ADODB.Connection")
       ConnData="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(ACCDB)
       Conn.Open ConnData
       If Err.Number <> 0 Then
          Err.Clear
          Set Conn = Nothing
          Response.Write "数据库连接出错"
          Response.End
       End If
     End If
   End Sub
   
   Sub DBConnEnd()
     If IsObject(Conn) = True Then Conn.Close
     Set Conn = Nothing
   End Sub

   Dim Tel,ZoneLetter
   Tel = Request("Tel")

   Response.write "<body style='margin:5px'><script Language=Javascript>" & vbCrLf
   Response.write "  var Isphone=/(^(0\d{2,3})?(-|\s)?(\d{7,8})(-(\d{2,4}))?$)|(^(\+86)?(\s+)?((13)|(15))(\d{9})$)/;" & vbCrLf
   Response.write "  var tel = """&Tel&""";" & vbCrLf
   Response.write "  if (tel==""""){ " & vbCrLf
   'Response.write "    document.write(""·请输入联系电话"");" & vbCrLf
   Response.write "    window.opener=null;" & vbCrLf
   Response.write "    //window.close();" & vbCrLf
   Response.write "    }else{" & vbCrLf
   Response.write "if (!Isphone.test(tel)) { " & vbCrLf
   'Response.write "    document.write(""·联系电话不正确"");" & vbCrLf
   Response.write "    window.opener=null;" & vbCrLf
   Response.write "    //window.close();" & vbCrLf
   Response.write "    }}" & vbCrLf
   Response.write "</script>" & vbCrLf

   Response.write "<title>电话归属地查询</title>" & vbCrLf
   Response.write "<table width='100%'><tr><td valign=top>" & vbCrLf
   Response.write "<table style='font-size:12px'>" & vbCrLf
   Response.write "<form name=form1 method=get action='Index.asp'>" & vbCrLf
   Response.write "<tr><td>电话号码：<input type=text name='Tel' value='"&Tel&"'> <input type=submit name=Submit value='查询'></td></tr>" & vbCrLf
   Response.write "</form>" & vbCrLf
   Response.write "</td></tr></table>" & vbCrLf
   Response.write "</td></tr><tr><td valign=top>" & vbCrLf
   Response.write "<table style='font-size:12px'>" & vbCrLf
   Response.write "<tr><td width=70>查询电话：</td><td width=200><strong>"&Tel&"</strong></td></tr>" & vbCrLf
   Response.write "<tr><td>电话属性：</td><td><strong>"&GetType(Tel)&"</strong></td></tr>" & vbCrLf
   Call DBConnBegin()
   Response.write "<tr><td valign=top>查询结果：</td><td><font color=red><strong>"&GetTel(GetType(Tel),Tel)&"</strong></font></td></tr>" & vbCrLf
   Call DBConnEnd()
   Response.write "</table>" & vbCrLf
   Response.write "</td></tr></table>" & vbCrLf

   
   Function GetType(Str)
	 If Str <> "" Then
	   If Left(Str,1) = "0" Then Str = Right(Str,Len(Str)-1)
	   If Left(Str,2) = "13" Or Left(Str,2) = "15" Then
	     GetType = "手机"
	   Else
	     GetType = "座机/小灵通"
	   End If
	 End If
   End Function
   
   Function GetTel(Str,Num)
	 If Str <> "" And Num <> "" Then
	   Select Case Str
	     Case "手机"
	       Num = Int(Left(Num,7))
	       Set Rs = Conn.Execute("Select [City],[Type] From [Mobile] Where [Num] = '"&Num&"'")
	       If Not Rs.Eof Then
	         GetTel = Rs(0)&"<br>"&Rs(1)
	       Else
	         GetTel = "数据不存在"
	       End If
	       Rs.Close
	       Set Rs = Nothing
		   
		 Case "座机/小灵通"
		   ZoneLetter = ""
		   If Left(Num,1) = "0" Then Num = Right(Num,Len(Num)-1)
		   If Len(Num) <= 8 Then
		     GetTel = "电话号码没带区号"
		   Else
		     If Instr(Num,"-") > 0 Then
			   ZoneLetter = Split(Num,"-")(0)
			 Else
			   Select Case Left(Num,2)
			     Case "10","20","21","22","23","24","25","26","27","28","29"
				   ZoneLetter = Left(Num,2)
			   End Select
			   Select Case Left(Num,3)
				 Case "984","983","982","949","948","947","946","944","942","941","940","924","922","908","900","868","867","866","865","864","863","862","861","849","848","846","845","844","843","842","841","840","829","828","827","826","824","823","822","821","808","807","806","805","804","801","488","483","426","386","323"
				   ZoneLetter = Left(Num,4)
			   End Select
			 End If
			 If ZoneLetter = "" Then ZoneLetter = Left(Num,3)
			 If IsNumeric(ZoneLetter) = False Then
			   GetTel = "数据不存在"
			 Else
               Set Rs = Conn.Execute("Select [Province],[City] From ZoneLetter Where ZoneLetter = "&Int(ZoneLetter)&"")
               If Not Rs.Eof Then
			     Do While Not Rs.Eof
				   If GetTel = "" Then
				     GetTel = Rs(0)&Rs(1)
				   Else
                     GetTel = GetTel &"　"& Rs(0)&Rs(1)
				   End If
				 Rs.MoveNext
				 Loop
               Else
                 GetTel = "数据不存在"
               End If
			   Rs.Close
			   Set Rs = Nothing
			 End If
		   End If
		 
	   End Select
	 End If
   End Function
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -