cook.asp

来自「网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。」· ASP 代码 · 共 30 行

ASP

30 行

<%
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
%>

cook.asp - 源码说明

本页面展示了「网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。」中的 cook.asp 源码文件，采用 ASP 编程语言编写，共 30 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与分类信息相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?