📄 wm.site.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Cls.Common.asp"-->
<!--#include file="Cls.Templates.asp"-->
<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Dim eShowType,eShowContent,eCityID
eShowType = Ucase(Request.QueryString)
rCityID = Split(eShowType,",")(1)
eShowType = Split(eShowType,",")(0)
Select Case Int(rCityID)
Case 0
Call Get_CityDefault()
Case Else
Call Get_CityInfo()
End Select
Select Case eShowType
Case "CITY"
eShowContent = MyCity
End Select
%>
document.write("<%=Replace(eShowContent,"'","\'")%>");
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -