📄 map.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

💻 ASP

字号:

<!--#include file="../../../inc/Conn.asp"-->
<!--#include file="../../../Inc/Cls.Common.asp"-->
<!--#include file="../../../Inc/Cls.Templates.asp"-->
<body style="margin:0;border:0">
<%
Dim xy
If MyCityID > 0 Then
	Call DBConnBegin()
    Set Rs = Conn.Execute("Select WM_Map from WM_Area Where WM_ID="&MyCityID)
	If Not Rs.Eof Then
	  xy = Rs(0)
	End If
	Rs.Close
	Set Rs = Nothing
	Call ClassEnd()
    Call DBConnEnd()
End If
If xy = "" Or IsNull(xy) Then xy = WR_Area(1)
Response.Write "<title>"&MyCity&"地图</title>"
Response.Write "<iframe margin=0 src='index.asp?xy="&xy&"' width=100% height=100% scrolling=no frameborder=0></iframe>"
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -