📄 popad.asp

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

💻 ASP

字号:

<title>AD</title>
<body style="margin:0">
<%
Dim wType,wPic,wUrl,wSize,aOpenType,sContent
aType = Request("wType")
aPic = Request("wPic")
aUrl = Replace(Request("wUrl"),"§","&")
aSize = Request("wSize")
aOpenType = Request("wTarget")

Select Case aType
  Case 2
	sContent = "<a href="&aUrl&" target="&aOpenType&"><img src="&aPic&" border=0 align=absmiddle width="&Split(aSize,",")(0)&" height="&Split(aSize,",")(1)&"></a>"
  Case 3
	sContent = "<embed src='"&aPic&"' quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='Application/x-shockwave-flash' width="&Split(aSize,",")(0)&" height="&Split(aSize,",")(1)&"></embed>"
End Select

response.write sContent
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -