cook.asp

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

<!--#include file="../../Admin/WM.Sys_Cook.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="Config.asp"-->
<%
Dim WR_Gather

Class Cls_Gather_Main
   Private Sub Class_Initialize()
     Call DBConnBegin()
	 Cache()
   End Sub
   Private Sub Class_Terminate()
     Call DBConnEnd()
   End Sub

   Sub Hand()
     Response.write "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
     Response.write "<tr class=td4><td>"
     Response.write "<a href=Index.asp>常规管理</a> | "
     Response.write "<a href=System_GatherArticle.Asp>文章采集</a> | "
     Response.write "<a href=System_GatherClass.Asp>分类信息采集</a> | "
     Response.write "<a href=System_GatherCompany.Asp>店铺采集</a>"
	 Response.write "</td></tr>" & vbCrLf
     Response.write "</table>" & vbCrLf
   End Sub

   '过滤非法字符
   Function CheckStr(StRer,Num)
	    If StRer = "" Or IsNull(StRer) Then Exit Function
	    Select Case Num
		  Case 0 '一般
			StRer = Trim(StRer)
			StRer = Replace(StRer,CHR(39),"''")     '单引号
            StRer = Replace(StRer,CHR(34),"&quot;")    '双引号
            StRer = Replace(StRer,CHR(32),"&nbsp;")    '空格
            StRer = Replace(StRer,CHR(60),"&lt;")      '<
            StRer = Replace(StRer,CHR(62),"&gt;")      '>
            StRer = Replace(StRer,vbCrLf,"<br>")       
		  Case 1 '数字
	        If IsNumeric(StRer) = 0 Then
	          Response.Write "操作错误"
		      Response.End
	        End If
			StRer = Int(StRer)
          Case 2 '模板添加修改 转换单引号
            StRer = Replace(StRer, "'", "''")
		  Case 3'文本域显示
			StRer = Replace(StRer,"&#39;",CHR(39))     '单引号
            StRer = Replace(StRer,"&quot;",CHR(34))    '双引号
            StRer = Replace(StRer,"&nbsp;",CHR(32))    '空格
            StRer = Replace(StRer,"&lt;",CHR(60))      '<
            StRer = Replace(StRer,"&gt;",CHR(62))      '>
            StRer = Replace(StRer,"<br>",vbCrLf)
          Case 4 '支持HTML
            StRer = Replace(StRer, Chr(39), "''")   '单引号
		End Select
	    CheckStr = StRer
   End Function
   
   '系统缓存
   Private Sub Cache()
	 If WRMPS.GetCache("Setup") = "" Then
       If IsObject(Gconn) = False Then Call ConnOpen()
       Set Grs = Gconn.Execute("Select WR_Setup From WR_Config")
         If Not Grs.Eof Then
		   WRMPS.SCache "Setup",Grs(0)
         End If
         Grs.Close
		 Set Grs = Nothing
	 End If
     WR_Gather = Split(WRMPS.GetCache("Setup"),"§§§")
   End Sub
End Class

Set WR = New Cls_Gather_Main
%>