index.asp

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

<!--#include file="Cook.asp"-->

<%
Dim i,Site

Call WR.Hand()

Select Case Request("Action")
  Case "Save"
	  For i = 0 To 6
        If Request.Form("a" & (i)) = "" Then Call WRMPS.ErrView("·请输入完整系统基本设置<meta http-equiv=RefResh content='1;URL=Index.asp'>",0)
        Site = Site & "§§§" & Request.Form("a" & (i))
      Next
	  
      If Left(Site, 3) = "§§§" Then Site = Right(Site, Len(Site) - 3)
	  Call WRMPS.SCache("Setup","")
	  Call ConnOpen()
	  Gconn.Execute("Update WR_Config Set WR_Setup='"&Site&"'")
	  Call WRMPS.ErrView("·网站基本信息设置成功<meta http-equiv=RefResh content='1;URL=Index.asp'>",1)
      Call ConnClose()
  
  Case Else
   Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
   Content = Content & "<tr class=td2><td><a href=Index.asp>系统设置</a> | <a href=Data.asp>数据库管理</a> | <a href=Item.asp?Action=Admit>项目导入</a> | <a href=Item.asp?Action=Export>项目导出</a> | <a href=System_GatheRexe.asp?Action=Timing>定时采集</a></td></tr>" & vbCrLf
   Content = Content & "</table>" & vbCrLf
   Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
   Content = Content & "<form name='myform' method='post' Action='?Action=Save'>" & vbCrLf
   Content = Content & "<tr class=td4><td colspan=2><strong>基本信息设置</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td width='35%'><strong>采集速度设置</strong><br>两条记录间等待时间，单位：秒，根据您的机器来定</td><td width='65%'><input type=text name=a0 value="&WR_Gather(0)&" style='width:50'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td3><td colspan=2><strong>文件下载设置</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>采集附件下载目录</strong><br>采集文件下载地址，相对于主站图片上传目录，目录前后不要带 /</td><td><input name='a1' type='text' value='" & WR_Gather(1) & "' maxlength='20' style='width:200'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>文章图片下载目录</strong><br>请不要带 /</td><td><input name='a2' type='text' value='" & WR_Gather(2) & "' maxlength='20' style='width:200'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>分类信息图片下载目录</strong><br>请不要带 /</td><td><input name='a3' type='text' value='" & WR_Gather(3) & "' maxlength='20' style='width:200'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>店铺图片下载目录</strong><br>请不要带 /</td><td><input name='a4' type='text' value='" & WR_Gather(4) & "' maxlength='20' style='width:200'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>允许下载的文件类型</strong><br>用“|”隔开</td><td><input name='a5' type='text' value='" & WR_Gather(5) & "' style='width:200' maxlength='50'></td></tr>"& vbCrLf
   Content = Content & "<tr class=td2><td><strong>允许下载的文件大小</strong><br>单位为：KB</td><td><input name='a6' type='text' value='" & WR_Gather(6) & "' style='width:50' maxlength='5'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td4><td></td><td><input type='submit' name='Submit' value=' 提 交 '></td></tr>" & vbCrLf
   Content = Content & "</form>" & vbCrLf
   Content = Content & "</table>" & vbCrLf
  End Select
Response.Write Content
Call GetBottom()
Call ClassEnd()
%>