复制代码代码如下:
<! - # includeFile = "conn.asp" ->
<! - # includeFile = "cls_main.asp" ->
<! - # includeFile = "CLS_MD5.asp" ->
<% dimobj
setObj = newadmin_login
callobj.main ()
setObj = rien
classadmin_login
PrivateFounderr, errmsg, mesky
PRIVATESUBCLASS_INITIALIZE ()
Founderr = false
SetMesky = newcls_main
Fin
PRIVATESUBCLASS_TERMINE ()
SetMesky = rien
Fin
Publicsubmain ()
Réponse.write "<! Doctypehtmlpublic" "- // w3c // dtdhtml4.01transitional // en" "" "http://www.w3.org/tr/html4/loose.dtd" ">" & vbcrlf
Réponse.write "<html>" & vbcrlf
Response.write "<Aad>" & vbcrlf
Response.Write "<Metahttp-Equiv =" "Content-Type" "Content =" "Text / Html; charSet = GB2312" ">" & vbcrlf
Response.Write "<Title> 动感下载系统 v3.0—— 管理员登录 PoweredBy: www.mesky.net </Title>" & vbcrlf
Response.write "</head>" & vbcrlf
Response.Write "<Styletype = Text / CSS>" & vBcrlf
Response.Write "Body {" & vbcrlf
Response.Write "Background: #efef;" & vbcrlf
Response.Write "Taille de police: 12px;" & vbcrlf
Response.Write "Margin-top: 0px;" & vbcrlf
Réponse.write "}" & vbcrlf
Réponse.writevbcrlf
Response.Write "Input {" & vbcrlf
Réponse.writevbcrlf
Response.Write "Taille de police: 12px;" & vbcrlf