check.asp

增添网站节日气氛

<%

 
 '检测网站功能模块
 Private Function webConfig()
   Set oRs_web=Server.CreateObject("adodb.recordset")
   sql="select Template from Sbe_WebConfig"
   oRs_web.open sql,conn,1,1
   IF oRs_web.eof and oRs_web.bof Then oRs_web.Close:set oRs_web=Nothing:Exit Function
   webConfig=oRs_web("Template")
   oRs_web.Close:set oRs_web=Nothing
 End Function
 
 Private Sub check_name(intID)   
 intID=intID
  select Case intID
   Case 0
   Case 1
     str="<input name=""checkbox"" type=""checkbox"" value="" 1"" checked>关于行地"
   Case 2
     str="<input name=""checkbox"" type=""checkbox"" value="" 2"" checked>新闻中心"
   Case 3
     str="<input name=""checkbox"" type=""checkbox"" value="" 3"" checked>产品中心"
   Case 4
     str="<input name=""checkbox"" type=""checkbox"" value="" 4"" checked>客服中心"
   Case 5
     str="<input name=""checkbox"" type=""checkbox"" value="" 5"" checked>人事招聘"
  Case 6
     str="<input name=""checkbox"" type=""checkbox"" value="" 6"" checked>流媒体播放"
  Case 7
     str="<input name=""checkbox"" type=""checkbox"" value="" 7"" checked>会员管理"
  Case 8
     str="<input name=""checkbox"" type=""checkbox"" value="" 8"" checked>在线咨询"
  Case 9
     str="<input name=""checkbox"" type=""checkbox"" value="" 9"" checked>网上调查"
  Case 10
     str="<input name=""checkbox"" type=""checkbox"" value="" 10"" checked>商业信息"
  Case 11
     str="<input name=""checkbox"" type=""checkbox"" value="" 11"" checked>FAQ系统"	 
  Case 12
     str="<input name=""checkbox"" type=""checkbox"" value="" 12"" checked>友情链接"
  end select
   Response.Write str
End Sub
%>