📄 post.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
字号:
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<!--#include file="../Inc/Cls.Templates.asp"-->
<!--#include file="../Inc/Cls.Content.asp"-->
<!--#include file="../Inc/Cls.Create.asp"-->
<!--#include file="../Inc/Cls.Sift.asp"-->
<!--#include file="Channel_Config.asp"-->
<%
Dim i,User,ID,QQ,AddRess,ComID,TestCon
ComID = WRMPS.CheckStr(Request("ComID"),1)
If ComID = "" Then ComID = 0
If WRUser.ChkLogin Then Response.Redirect "../member/User_ClassAD.asp?Action=Add&ComID="&ComID
If ComID > 0 Or Int(FlagClass(0)) < 1 Then Call WRMPS.AjaxLogin("",0,"您需要登录后才可以进行此操作！")

Select Case Request("Action")
  Case "Save"
    Call WRMPS.CheckSubmit()
    Dim Contact,Tel,EndTime,title,WM_PostType,WM_Key
    Dim Code,PostTime,IP,ADPostName,ClassDir,DelPass,CodeAnswer
    Dim DB1,DB2,DB3,DB4,DB5,DB6,DB7,DB8,DB9,DB10,DB1T,DB2T,DB3T,DB4T,DB5T,DB6T,DB7T,DB8T,DB9T,DB10T
	Dim RegInfo
	RegInfo = ""
	Email = WRMPS.CheckStr(Request.Form("Email"),0)
	ComID = WRMPS.CheckStr(Request.Form("ComID"),1)
	If ComID = "" Then ComID = 0
    ClassID = WRMPS.CheckStr(Request.form("ClassID"),1)
    AreaID = WRMPS.CheckStr(Request.form("AreaID"),1)
    Title = WRMPS.CheckStr(Request.Form("Title"),0)
    Content = WRMPS.CheckStr(Request.Form("Content"),2)
    Contact = WRMPS.CheckStr(Request.Form("Contact"),2)
    Tel = WRMPS.CheckStr(Request.Form("Tel"),0)
    If ClassID ="" Then Call WRMPS.ErrView("·请选择信息所属分类",0)
    If AreaID ="" Then Call WRMPS.ErrView("·请选择信息所在地区",0)
    If title = "" Then Call WRMPS.ErrView("·请填写信息标题",0)
    If Content = "" Then Call WRMPS.ErrView("·请填写信息内容",0)
    If Contact = "" Then Call WRMPS.ErrView("·请填写信息联系人",0)
    If Tel = "" and Email = "" Then Call WRMPS.ErrView("·邮箱地址和联系电话必须写一样",0)
	PostTime = Now()
    EndTime = Cdate(Now()+30)
    IP = Request.ServerVariables("REMOTE_ADDR")
	DelPass = WRMPS.CheckStr(Request.Form("DelPass"),0)
    If DelPass <> "" Then DelPass = MD5(2,DelPass) Else DelPass = NUll
	Code = WRMPS.CheckStr(Request.form("Code"),0)
	CodeAnswer = WRMPS.CheckStr(Request.form("CodeAnswer"),0)
	If WRMPS.CheckCode("Class",1) Then If Code <> WRMPS.GetCookies("Code") Then Call WRMPS.ErrView("·您没有输入验证码或验证码不正确",0)
	If WRMPS.CheckCode("Class",2) and UBound(WR_CodeQA) >= 0 Then If Split(WR_CodeQA(WRMPS.GetCookies("IDQuestionNo")),"|")(1) <> CodeAnswer Then Call WRMPS.ErrView("·验证问题答案不正确",0)
	WRMPS.DelCookies "IDQuestionNo"
    WRMPS.DelCookies "Code"
	DB1 = WRMPS.CheckStr(Request("DB1"),0)
	If DB1 = "" Then DB1 = Null:DB1T = Null Else DB1T = WRMPS.CheckStr(Request("DB1T"),0)
	DB2 = WRMPS.CheckStr(Request("DB2"),0)
	If DB2 = "" Then DB2 = Null:DB2T = Null Else DB2T = WRMPS.CheckStr(Request("DB2T"),0)
	DB3 = WRMPS.CheckStr(Request("DB3"),0)
	If DB3 = "" Then DB3 = Null:DB3T = Null Else DB3T = WRMPS.CheckStr(Request("DB3T"),0)
	DB4 = WRMPS.CheckStr(Request("DB4"),0)
	If DB4 = "" Then DB4 = Null:DB4T = Null Else DB4T = WRMPS.CheckStr(Request("DB4T"),0)
	DB5 = WRMPS.CheckStr(Request("DB5"),0)
	If DB5 = "" Then DB5 = Null:DB5T = Null Else DB5T = WRMPS.CheckStr(Request("DB5T"),0)
	DB6 = WRMPS.CheckStr(Request("DB6"),0)
	If DB6 = "" Then DB6 = Null:DB6T = Null Else DB6T = WRMPS.CheckStr(Request("DB6T"),0)
	DB7 = WRMPS.CheckStr(Request("DB7"),0)
	If DB7 = "" Then DB7 = Null:DB7T = Null Else DB7T = WRMPS.CheckStr(Request("DB7T"),0)
	DB8 = WRMPS.CheckStr(Request("DB8"),0)
	If DB8 = "" Then DB8 = Null:DB8T = Null Else DB8T = WRMPS.CheckStr(Request("DB8T"),0)
	DB9 = WRMPS.CheckStr(Request("DB9"),0)
	If DB9 = "" Then DB9 = Null:DB9T = Null Else DB9T = WRMPS.CheckStr(Request("DB9T"),0)
	DB10 = WRMPS.CheckStr(Request("DB10"),0)
	If DB10 = "" Then DB10 = Null:DB10T = Null Else DB10T = WRMPS.CheckStr(Request("DB10T"),0)
	
    Call DBConnBegin()
	Set Rs = Conn.Execute("Select WM_ParentDir,WM_Dir From WM_ClassSort Where WM_ID="&ClassID)
	If Not Rs.Eof Then
	  ClassDir = Rs(0)&Rs(1)
	Else
	  Call WRMPS.ErrView("·请按规定操作<br>·",0)
	End If
    Rs.Close
	
	'信息过滤器
	Set WRClass = New Cls_Sift
	  Select Case WRClass.ClassSift(Title,Content,Tel,Email,"")
	    Case 1
	      Call WRMPS.ErrView("·信息发布失败<br>·被系统判定为非法或垃圾信息",0)
	    Case 2
	      Call WRMPS.ErrView("·信息发布失败<br>·您的IP已被列入系统黑名单",0)
	  End Select
	Set WRClass = Nothing
	
    '写入分类广告
	If ComID > 0 Then WM_Key = Int(FlagCom(23)) Else WM_Key = Int(FlagClass(6))
	If Instr(","&WR_ClassAD(2)&",",","&Hour(Time())&",") > 0 Then
	  WM_Key = 0
	End If
    ADPostName = Null
    WM_PostType = 0
	
	Set Rs=server.createobject("adodb.recordset")
	Rs.Open "Select WM_title,WM_Content,WM_Pic,WM_ClassID,WM_AreaID,WM_Contact,WM_Tel,WM_Ip,WM_Key,WM_PostTime,WM_EndTime,WM_Hit,WM_Re,WM_Commend,WM_PostType,WM_Post,WM_ChannelID,WM_ClassDir,WM_ChannelDir,WM_mCommend,WM_mSortErr,WM_mTrash,WM_mAgency,WM_tag,WM_Email,WM_Charge,WM_RepeatCharge,WM_ComID,WM_Collection,WM_DB1,WM_DB2,WM_DB3,WM_DB4,WM_DB5,WM_DB6,WM_DB7,WM_DB8,WM_DB9,WM_DB10,WM_DB1T,WM_DB2T,WM_DB3T,WM_DB4T,WM_DB5T,WM_DB6T,WM_DB7T,WM_DB8T,WM_DB9T,WM_DB10T,WM_aZTop,WM_aTop,WM_aBold,WM_aProp,WM_aTColor,WM_aBColor,WM_TempID,WM_Full,WM_DelPass From WM_ClassAD Where WM_ID=1",Conn,1,3
	  Rs.AddNew
	  Rs(0) = Title
	  Rs(1) = Content
	  Rs(2) = NULL
	  Rs(3) = ClassID
	  Rs(4) = AreaID
	  Rs(5) = Contact
	  Rs(6) = Tel
	  Rs(7) = IP
	  Rs(8) = WM_Key
	  Rs(9) = PostTime
	  Rs(10) = EndTime
	  Rs(11) = 0
	  Rs(12) = 0
	  Rs(13) = 0
	  Rs(14) = WM_PostType
	  Rs(15) = ADPostName
	  Rs(16) = ChannelID
	  Rs(17) = ClassDir
	  Rs(18) = ChannelDir
	  Rs(19) = 0
	  Rs(20) = 0
	  Rs(21) = 0
	  Rs(22) = 0
	  Rs(23) = Null
	  Rs(24) = Email
	  Rs(25) = 0
	  Rs(26) = 0
	  Rs(27) = ComID
	  Rs(28) = 0
	  Rs(29) = DB1
	  Rs(30) = DB2
	  Rs(31) = DB3
	  Rs(32) = DB4
	  Rs(33) = DB5
	  Rs(34) = DB6
	  Rs(35) = DB7
	  Rs(36) = DB8
	  Rs(37) = DB9
	  Rs(38) = DB10
	  Rs(39) = DB1T
	  Rs(40) = DB2T
	  Rs(41) = DB3T
	  Rs(42) = DB4T
	  Rs(43) = DB5T
	  Rs(44) = DB6T
	  Rs(45) = DB7T
	  Rs(46) = DB8T
	  Rs(47) = DB9T
	  Rs(48) = DB10T
	  Rs(49) = Now()
	  Rs(50) = Now()
	  Rs(51) = Now()
	  Rs(52) = "0|0"
	  Rs(53) = Now()
	  Rs(54) = Now()
	  Rs(55) = 0
	  Rs(56) = 0
	  Rs(57) = DelPass
	  Rs.Update
    Rs.Close
	Set Rs = Conn.Execute("Select max(WM_ID) from WM_ClassAD")
    If Not Rs.EOF Then
	  ID = Rs(0)
    End If
    Rs.Close
	Call WRMPS.CreTextToImg(ID,1,Email,Tel,QQ,AddRess)
	If WM_Key = 1 Then
  	  Conn.Execute("Update WM_Config Set WM_ClassNum = WM_ClassNum + 1")
	  Call WRMPS.SCache("ClassNum",WRMPS.GetCache("ClassNum") + 1)
	  Set ClsCre = New Cls_Create
      Call ClsCre.CreClass("CRE",ID,WM_Key)
      Set ClsCre = Nothing
      Call WRMPS.ErrView("·信息发布成功"&RegInfo&"<br>·<a href="&WRMPS.GetShowUrl(1,1,0,ID,Now(),ChannelDir&"/"&ClassDir,ChannelID)&">查看您刚刚发布的信息</a><br>·<a href=Post.asp>返回继续发布</a><br>·<a href=../Index.asp>返回首页</a>",1)
	Else
      Call WRMPS.ErrView("·信息发布成功，请等待管理员的审核"&RegInfo&"<br>·<a href="&WRMPS.GetShowUrl(1,1,0,ID,Now(),ChannelDir&"/"&ClassDir,ChannelID)&">查看您刚刚发布的信息</a><br>·<a href=Post.asp>返回继续发布</a><br>·<a href=../Index.asp>返回首页</a>",1)
	End If
    Set Rs = Nothing
    Call DBConnEnd()
  
  Case "Two"
    Dim IDQuestionNo
	Randomize Timer
	IDQuestionNo = int(rnd*UBound(WR_CodeQA))
	WRMPS.SCookies "IDQuestionNo",IDQuestionNo,0
    ClassID = WRMPS.CheckStr(Request("ClassID"),0)
    AreaID = WRMPS.CheckStr(Request("AreaID"),0)
    If ClassID = "" Then Call WRMPS.ErrView("·请选择信息所属分类<meta http-equiv=refresh content='1;URL=Post.asp'>",0)
    If ClassID < 1 Then Call WRMPS.ErrView("·请选择信息所属分类<meta http-equiv=refresh content='1;URL=Post.asp'>",0)
    If AreaID = "" Then Call WRMPS.ErrView("·请选择信息所在地区<meta http-equiv=refresh content='1;URL=Post.asp'>",0)
    If AreaID < 1 Then Call WRMPS.ErrView("·请选择信息所在地区<meta http-equiv=refresh content='1;URL=Post.asp'>",0)

	SitePath = ",<a href="&WR_Setting(3)&ChannelDir&"/>"&ChannelName&"</a>,<a href="&WR_Setting(3)&ChannelDir&"/Post.asp>快速发布</a>"
	SitePath = WRMPS.GetSitePath(0,SitePath)
	Call DBConnBegin()
	Call WRMPS.FsoBegin()
	TempStr = WRTemp.SiteTemplates(1,0,19,ChannelID)
	TempStr = WRMPS.GetReplace(TempStr,"{$IDQuestion}",Split(WR_CodeQA(IDQuestionNo),"|")(0))

	If Instr(TempStr,"{$OtherOption}") > 0 Then
      Set Rso = Server.CreateObject("ADODB.RecordSet")
	  Rso.Open "Select WM_DB from WM_ClassSort Where WM_ID="&ClassID, Conn, 1, 1
	  If Not Rso.Eof Then
	    TestCon = Rso(0)
		TestCon = WRMPS.GetReplace(TestCon,"[$DB1$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB2$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB3$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB4$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB5$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB6$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB7$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB8$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB9$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB10$]","")
		If TestCon <> "" and Isnull(TestCon)=False Then
		  TempStr = WRMPS.GetReplace(TempStr,"{$OtherOptionStyle}","")
		  TempStr = WRMPS.GetReplace(TempStr,"{$OtherOption}",TestCon)
		End If
	  End If
	  Rso.Close
	  Set Rso = Nothing
    End If
	TempStr = WRMPS.GetReplace(TempStr,"{$OtherOptionStyle}"," style=""display:none""")
	TempStr = WRMPS.GetReplace(TempStr,"{$OtherOption}","")
	TempStr = WRMPS.GetReplace(TempStr,"{$ComID}",ComID)
	TempStr = WRMPS.GetReplace(TempStr,"{$ClassID}",ClassID)
	TempStr = WRMPS.GetReplace(TempStr,"{$AreaID}",AreaID)
	If Instr(TempStr,"{$IDCode}") > 0 Then
	  TempStr = WRMPS.GetReplace(TempStr,"{$IsIDCode}",WRMPS.CheckCode("Class",1))
	  If WRMPS.CheckCode("Class",1) Then
	  	  TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}","")
	  Else
		  TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}"," style=""display:none""")
	  End If
	End If
	If Instr(TempStr,"{$IDQACode}") > 0 and UBound(WR_CodeQA) >= 0 Then
	  TempStr = WRMPS.GetReplace(TempStr,"{$IsIDQACode}",WRMPS.CheckCode("Class",2))
	  If WRMPS.CheckCode("Class",2) Then
		  TempStr = WRMPS.GetReplace(TempStr,"{$IDQACode}","")
	  Else
	      TempStr = WRMPS.GetReplace(TempStr,"{$IDQACode}"," style=""display:none""")
	  End If
	Else
	  TempStr = WRMPS.GetReplace(TempStr,"{$IDQACode}"," style=""display:none""")
    End If
	If Instr(TempStr,"{$DelPass}") > 0 Then
	  Select Case Int(WR_ClassAD(1))
	    Case 0
		  TempStr = WRMPS.GetReplace(TempStr,"{$DelPass}"," style=""display:none""")
		Case 1
	  	  TempStr = WRMPS.GetReplace(TempStr,"{$DelPass}","")
	  End Select
	End If
	TempStr = WRMPS.GetReplace(TempStr,"{$TrueName}","")
	TempStr = WRMPS.GetReplace(TempStr,"{$Tel}","")
	TempStr = WRMPS.GetReplace(TempStr,"{$Email}","")
	TempStr = WRTemp.SiteChannel(TempStr)
	TempStr = WRTemp.SiteLabel(TempStr)
	Call WRMPS.FsoEnd()
	Response.write TempStr
	Call WRMPS.Loading("智能防垃圾系统过滤中，请稍候... ")
	Call ClassEnd()
	Call DBConnEnd()

  Case Else
	SitePath = ",<a href="&WR_Setting(3)&ChannelDir&"/>"&ChannelName&"</a>,<a href="&WR_Setting(3)&ChannelDir&"/Post.asp>快速发布</a>"
	SitePath = WRMPS.GetSitePath(0,SitePath)
	Call DBConnBegin()
	Call WRMPS.FsoBegin()
	TempStr = WRTemp.SiteTemplates(1,0,18,ChannelID)
	Call WRMPS.FsoEnd()
	TempStr = WRMPS.GetReplace(TempStr,"{$ComID}",ComID)
	TempStr = WRTemp.SiteChannel(TempStr)
	TempStr = WRTemp.SiteLabel(TempStr)
    Call ClassEnd()
	Call DBConnEnd()
	Response.write TempStr
End Select
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -