config.asp

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

<%
   '文章频道下拉菜单
   Function GetChannelSelect(Str)
     GetChannelSelect = "<select name='ChannelID'>" & vbCrLf
     If Str = 0 Then
	   GetChannelSelect = GetChannelSelect & "<option value=0 selected>请选择...</option>" & vbCrLf
	 End If
	 Set Rs = Conn.Execute("Select WM_ID,WM_ChannelName From WM_Channel Where WM_Module = 1 Order By WM_OrderID")
	 Do While Not Rs.Eof
        GetChannelSelect = GetChannelSelect & "<option value="&Rs(0)&WRMPS.GetCheckVer(Rs(0), Str, 0)&">"&Rs(1)&"</option>" & vbCrLf
	 Rs.Movenext
	 Loop
	 Rs.Close
	 Set Rs = Nothing
     GetChannelSelect = GetChannelSelect & "</select>" & vbCrLf
   End Function
   Function GetChannerDir(ID)
	 Set Rs = Conn.Execute("Select WM_ChannelDir From WM_Channel Where WM_ID="&ID&" and WM_Module = 1")
	 If Not Rs.Eof Then
        GetChannerDir = ID&"|"&Rs(0)
	 End If
	 Rs.Close
	 Set Rs = Nothing
   End Function
   '频道名称提取
   Function GetChannelName(ID)
	 Set Rs = Conn.Execute("Select WM_ChannelName From WM_Channel Where WM_ID="&ID)
	 If Not Rs.Eof Then
	   GetChannelName = Rs(0)
	 End If
	 Rs.Close
	 Set Rs = Nothing
   End Function
   '分类目录提取
   Function GetClassDir(byval ID,byval ClassTable)
     GetClassDir = ""
	 Set Rs = Conn.Execute("Select WM_Dir,WM_ParentDir From "&ClassTable&" Where WM_ID="&ID)
	 If Not Rs.Eof Then
	   GetClassDir = ID&"|"&Rs(1)&Rs(0)
	   If ClassTable = "WM_ArticleSort" Then GetClassDir = GetClassDir & "/"
	 End If
	 Rs.Close
	 Set Rs = Nothing
   End Function
   
   '======================================
   '文章地区列表提取函数：A_AreaID
   'Str：对应值，如果此值与列表中一个对应，则为selected
   '======================================
   Function A_AreaID(Str)
      If OpenTest = False Then A_AreaID = "<input type=hidden name=AreaID value=0>不使用此功能，如要使用请在 Config.asp 文件中设置开启" & vbCrLf:Exit Function
      Select Case gA_ARea
	    Case 0
          A_AreaID = "<input type=hidden name=AreaID value=0>不使用此功能，如要使用请在 Config.asp 文件中设置开启" & vbCrLf
		Case 1
          A_AreaID = A_AreaID & "<select name='AreaID'>" & vbCrLf
          If Str > 0 Then
	        A_AreaID = A_AreaID & "<option value=0>取消选择...</option>" & vbCrLf
	      Else
	        A_AreaID = A_AreaID & "<option value=0 selected>请选择...</option>" & vbCrLf
	      End If
		  If gA_AReaTerm <> "" Then gTerm = " Where "&gA_AReaTerm Else gTerm = ""
		  Set g_Rs = Conn.Execute("Select "&gA_AreaID&","&gA_AReaTitle&" From "&gA_AReaTable&gTerm&" Order By "&gA_AreaID&" Desc")
			Do While Not g_Rs.Eof
              A_AreaID = A_AreaID & "<option value="&g_Rs(0)&WRMPS.GetCheckVer(g_Rs(0), Str, 0)&">"&g_Rs(1)&"</option>" & vbCrLf
		    g_Rs.Movenext
			Loop
	      g_Rs.Close
	      Set g_Rs = Nothing
          A_AreaID = A_AreaID & "</select>" & vbCrLf
	  End Select
   End Function
   '地区名称提取
   Function A_AReaName(ID)
      A_AReaName = ""
      If OpenTest = False Then Exit Function
	  Select Case gA_ARea
		Case 1
	      If gA_AReaTerm <> "" Then gTerm = " and "&gA_AReaTerm Else gTerm = ""
	      Set g_Rs = Conn.Execute("Select "&gA_AReaTitle&" From "&gA_AReaTable&" Where "&gA_AreaID&"="&ID&gTerm&" Order By "&gA_AreaID&" Desc")
	      If Not g_Rs.Eof Then
	         A_AReaName = g_Rs(0)
	      End If
	      g_Rs.Close
	      Set g_Rs = Nothing
	  End Select
   End Function

   '########################################################################################
   '主数据库入库处理
   '文章入库
   Function ASave(gTitle,gContent,gTime,gAuthor,gCopyFrom,gTags,gChannelID,gClass,gSavePic)
      SQL = "Insert Into WM_Article("&_
	  "WM_ClassID,WM_ChannelID,WM_Title,WM_Keyword,WM_Author,WM_CopyFrom,WM_Content,WM_DefaultPicUrl,WM_DefaultShow,WM_PageNext,WM_MaxCharPerPage,WM_Hot,WM_Commend,WM_Grade,WM_Hit,WM_Re,WM_AddTime,WM_Editor,WM_PostType,WM_Passed,WM_IsDeleted,WM_ClassDir,WM_ChannelDir,WM_Charge,WM_RepeatCharge,WM_Collection,WM_TempID"&_
	  ")values("&_
	  ""&Split(gClass,"|")(0)&","&Split(gChannelID,"|")(0)&",'"&gTitle&"','"&gTags&"','"&gAuthor&"','"&gCopyFrom&"','"&gContent&"','"&gSavePic&"',0,2,5000,0,0,3,0,0,'"&gTime&"','"&Request.Cookies("Admin")("Admin")&"',4,1,0,'"&Split(gClass,"|")(1)&"','"&Split(gChannelID,"|")(1)&"',0,0,0,0)"
	  Conn.Execute(SQL)
	  Conn.Execute("Update WM_Config Set WM_ArticleNum = WM_ArticleNum + 1")
	  Call WRMPS.SCache("ArticleNum",WRMPS.GetCache("ArticleNum") + 1)
   End Function
   
   '信息入库
   Function CSave(gTitle,gContent,gContact,gEMail,gQQ,gAddRess,gTEL,gTime,gTags,gClass,gAreaID,gSavePic)
      SQL = "Insert Into WM_ClassAD("&_
	  "WM_title,WM_Content,WM_Pic,WM_ClassID,WM_ChannelID,WM_AreaID,WM_Contact,WM_Email,WM_QQ,WM_Address,WM_TEL,WM_Ip,WM_Key,WM_PostTime,WM_EndTime,WM_Hit,WM_Re,WM_Commend,WM_PostType,WM_ClassDir,WM_ChannelDir,WM_mCommend,WM_mSortErr,WM_mTrash,WM_mAgency,WM_Tag,WM_Charge,WM_RepeatCharge,WM_aZTop,WM_aTop,WM_aTColor,WM_aBColor,WM_aBold,WM_aProp,WM_Full,WM_ComID,WM_Collection,WM_TempID"&_
	  ")values("&_
	  "'"&gTitle&"','"&gContent&"','"&gSavePic&"',"&Split(gClass,"|")(0)&",2,"&gAreaID&",'"&gContact&"','"&gEMail&"','"&gQQ&"','"&gAddRess&"','"&gTEL&"','"&Request.ServerVariables("REMOTE_ADDR")&"',1,'"&gTime&"','"&Cdate(gTime)+30&"',0,0,0,4,'"&Split(gClass,"|")(1)&"','Class',0,0,0,0,'"&gTags&"',0,0,'"&gTime&"','"&gTime&"','"&gTime&"','"&gTime&"','"&gTime&"','0|0',0,0,0,0)"
	  Conn.Execute(SQL)
  	  Conn.Execute("Update WM_Config Set WM_ClassNum = WM_ClassNum + 1")
	  Call WRMPS.SCache("ClassNum",WRMPS.GetCache("ClassNum") + 1)
   End Function
   
   '店铺入库
   Function YSave(gTitle,gContent,gAddRess,gTEL,gMobile,gFax,gWEB,gTime,gTags,gClass,gAreaID,gSavePic)
      SQL = "Insert Into WM_Company("&_
	  "WM_AreaID,WM_ChannelID,WM_ClassID,WM_ChannelDir,WM_ClassDir,WM_Company,WM_Address,WM_Phone,WM_Mobile,WM_Tags,WM_Fax,WM_Web,WM_Intro,WM_CheckUser,WM_CheckTime,WM_ClaimTime,WM_RZBL,WM_Hit,WM_Re,WM_GB,WM_ReSer,WM_RePrice,WM_All,WM_Consume,WM_Key,WM_EditNum,WM_PhotoNum,WM_LastPhoto,WM_CouponNum,WM_Commend,WM_Collection,WM_aZTop,WM_aTop,WM_aTColor,WM_aBColor,WM_aBold,WM_aProp,WM_TempID"&_
	  ")values("&_
	  ""&gAreaID&",6,"&Split(gClass,"|")(0)&",'Company','"&Split(gClass,"|")(1)&"','"&gTitle&"','"&gAddRess&"','"&gTEL&"','"&gMobile&"','"&gTags&"','"&gFax&"','"&gWEB&"','"&gContent&"','"&Request.Cookies("Admin")("Admin")&"','"&gTime&"','"&gTime&"',0,0,0,0,0,0,0,0,1,0,0,'"&gSavePic&"',0,0,0,'"&gTime&"','"&gTime&"','"&gTime&"','"&gTime&"','"&gTime&"','0|0',0)"
	  Conn.Execute(SQL)
	  Conn.Execute("Update WM_Config Set WM_CompanyNum = WM_CompanyNum + 1")
	  Call WRMPS.SCache("CompanyNum",WRMPS.GetCache("CompanyNum") + 1)
   End Function
%>