📄 cook.asp

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

💻 ASP

字号:

<%
Sub FlagU()
  If Not WRUser.ChkLogin And Request.Cookies("Admin")("Admin") = "" Then
    Response.Write "<style>body{margin:5;font size:12}</style>对不起，您还没有登录！"
    Response.End
  End If
End Sub

Sub FlagA()
  If Request.Cookies("Admin")("Admin") = "" Then
    Response.Write "<style>body{margin:5;font size:12}</style>对不起，您还没有登录！"
    Response.End
  End If
End Sub

Sub PlusTop()
    Response.write "<html><hand>"&vbCrLf
    Response.write "<link href="""&WR_Setting(3)&"Admin/img/Style.css"" rel=""stylesheet"" type=""text/css"">"&vbCrLf
    Response.write "<meta HTTP-EQUIV=""Content-Type"" CONTENT=""text/html;charset=gb2312"">"&vbCrLf
    Response.write "<meta HTTP-EQUIV=""Content-Language"" CONTENT=""gb2312"">"&vbCrLf
    Response.write "<script language='JavaScript' src='img/Admin.Js'></script>"&vbCrLf
End Sub

Sub PlusBottom()
     Call ClassEnd()
     Response.Write "<table width='100%' border=0 cellspacing=0 cellpadding=5 style='border-top:1px #C4D8ED solid'><tr><td align=center class=td2>" & vbCrLf
     Response.Write "Copyright &copy; 2004-2008 <a href=http://www.wangren.net target=_blank><font face=Verdana, Arial, Helvetica, sans-serif><b><font color=#990000>WangRen</font><font color=blue>.Net</font></b></font></a> ,Inc. All rights reserved."
     Response.Write "</td></tr></table>" & vbCrLf
End Sub
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -