📄 user_classad.asp
字号:
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 Content = Content & "<tr Class=td2><td><strong>相关选项</strong></td><td>"&TestCon&"</td></tr>" & vbCrLf
End If
Rso.Close
Set Rso = Nothing
Content = Content & "<tr Class=td2><td valign=top><strong>内容介绍</strong><div class=Up><div class=UpFont><a href=""javascript:openWithIframe('添加附件','../Plus/UpLoad/Index.asp?Type=1&User=3',350,150);"">添加附件</a></div><div style='width:120px; height:120px; z-index:1;overflow:auto;' class=div ID=PicPreview><Img src='../Skins/"&WR_Setting(5)&"/nopic.gif'></div></div></td><td><INPUT type='hidden' name='Content' value=''><IFRAME ID=EditContent SRC='../Plus/Edit/edit.asp?ID=Content&sMode=EDIT&EditButton=NO&Tool=UCLASS' FRAMEBORDER=0 SCROLLING=no WIDTH='98%' HEIGHT=250></IFRAME> <font color='#FF0000'>*</font></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td valign=top><strong>相关图片</strong></td><td><input type=text name=Pic size=50 maxlength=100><br>"
Content = Content & "<select name=PicSelect onChange=PicReset(this.value)>" & vbCrLf
Content = Content & "<option value='' selected>还没有上传图片</option>" & vbCrLf
Content = Content & "</select>"
Content = Content & "</td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>发布天数</strong></td><td><select name=Days size=1>" & vbCrLf
Content = Content & "<option value=1>一天</option>" & vbCrLf
Content = Content & "<option value=3>三天</option>" & vbCrLf
Content = Content & "<option value=7>一周</option>" & vbCrLf
Content = Content & "<option value=15>半个月</option>" & vbCrLf
Content = Content & "<option value=30 selected>一个月</option>" & vbCrLf
Content = Content & "<option value=90>三个月</option>" & vbCrLf
Content = Content & "<option value=180>六个月</option>" & vbCrLf
Content = Content & "<option value=360>一年</option>" & vbCrLf
Content = Content & "</select></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>联系人</strong></td><td><input type=text name=Contact size=30 maxlength=50 value='"&Rs("WM_TrueName")&"'></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>Email</strong></td><td><input type=text name=Email size=30 maxlength=50 value='"&Rs("WM_email")&"'></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>联系电话</strong></td><td><input type=text name=Tel size=30 maxlength=50 value='"&Rs("WM_tel")&"'><br>如为座机或小灵通请填写：区号-电话号码</td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>联系地址</strong></td><td><input type=text name=AddRess size=30 maxlength=200 value='"&Rs("WM_address")&"'></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>QQ</strong></td><td><input type=text name=QQ size=30 maxlength=12 value='"&Rs("WM_QQ")&"'></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>关键字</strong><br>多个请用“,”分隔</td><td><input type=text name=WM_Tag size=30 maxlength=50></td></tr>" & vbCrLf
If WRMPS.CheckCode("UserClass",2) and UBound(WR_CodeQA) >= 0 Then
Dim IDQuestionNo
Randomize Timer
IDQuestionNo = int(rnd*UBound(WR_CodeQA))
WRMPS.SCookies "IDQuestionNo",IDQuestionNo,0
Content = Content & "<tr Class=td2><td><strong>验证问题</strong></td><td><strong>"&Split(WR_CodeQA(IDQuestionNo),"|")(0)&"</strong><br><input name=CodeAnswer type=text Style='width:100px' maxlength=50> <font color='#FF0000'>*</font></td></tr>" & vbCrLf
End If
If WRMPS.CheckCode("UserClass",1) Then
Content = Content & "<tr Class=td2><td><strong>验证码</strong></td><td><input name=Code style=""width:64px;height:20px"" maxlength=6 size=10> <img src="&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/code.gif id=imgurl align=absmiddle style='cursor:pointer' alt='验证码看不清楚?请点击刷新验证码' onclick=""this.src='"&WR_Setting(3)&"inc/"&WR_Code(2)&".asp?t='+Math.random()""> <font color=#FF0000>*</font></td></tr>" & vbCrLf
End If
Content = Content & "<tr Class=td2><td></td><td><input type=submit value='提交信息' name=B1 onclick=""Loading.style.display='';""></td></tr>" & vbCrLf
Content = Content & "</form>" & vbCrLf
End If
Rs.Close
Content = Content & "</table>" & vbCrLf
Content = Content & PageButtom()
Case "Add"
Content = Content & PageTop()
Content = Content & UserPath(",<a href=User_ClassAD.asp>分类信息管理</a>")
Set Rs = Conn.Execute("Select WM_ClassNum From WM_Member Where WM_ID = "&MemID)
If Not Rs.Eof Then
eCount = Rs(0)
End If
Rs.Close
Content = Content & "<table width='100%' cellpadding=0 cellspacing=1 class=td1>" & vbCrLf
Content = Content & "<form action='?Action=AddTwo&ComID="&ComID&"' name=myform method=POST>" & vbCrLf
Content = Content & "<tr><td colspan=2 Class=td4>发布分类信息</td></tr>" & vbCrLf
If Int(FlagClass(3)) > 0 Then
Content = Content & "<tr><td colspan=2 Class=td2><strong><font class=Font2>信息发布收费提醒：</font></strong>您总共可以发布 <font class=Font2><strong>"&Int(FlagClass(3))&"</strong></font> 条分类信息，超出部分按 <font class=Font2><strong>"&Int(FlagClass(4))&"</strong></font> 积分和 <font class=Font2><strong>"&Int(FlagClass(5))&"</strong></font> "&WR_Other(0)&"每条收取，不成功不收费，您现已发布信息 <font class=Font2><strong>"&eCount&"</strong></font> 条。<br><strong> </strong>另外，如果您发布的信息因不合要求而被删除，其发布过程中产生的超量及道具购买等费将不再返还。</font></td></tr>" & vbCrLf
End If
Content = Content & "<tr Class=td2><td><strong>请选择信息所在地区</strong></td>" & vbCrLf
Content = Content & "<td><script src=../Inc/Js/AreaSelect.Js></Script></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td width='20%'><strong>请选择信息所属分类</strong></td>" & vbCrLf
Content = Content & "<td width='80%'><script src=../Inc/Js/ClassSelect.Js></Script></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td></td><td><input type=submit value='下一步' name=B1></td></tr>" & vbCrLf
Content = Content & "</form>" & vbCrLf
Content = Content & "</table>" & vbCrLf
Content = Content & PageButtom()
Case "Save"
Dim cID,User
cID = WRMPS.CheckStr(Request("cID"), 0)
cID = Replace(cID," ","")
If cID <> "" Then
cID = Split(cID, ",")
For i = 0 To UBound(cID)
User = ""
Select Case Request("Work")
Case "Del"
Set Rs = Conn.Execute("Select WM_ID,WM_Post From WM_ClassAD Where WM_ID = " & Int(cID(i)) & " and WM_PostType = 1 and WM_Post='"&MemName&"'")
If Not Rs.Eof Then
User = Rs(1)
If MemName <> User Then
Call WRMPS.ErrView("·您只能删除您自己发布的信息<meta http-equiv=refresh content='1;URL=?page="&Page&"&SearchKey="&SearchKey&"&Days="&Days&"&SearchID="&SearchID&"'>",0)
Exit For
End If
Conn.Execute ("Delete From WM_ClassRevert Where WM_ParentID = " & Int(cID(i)) & "")
Conn.Execute ("Update WM_Config Set WM_ClassNum = WM_ClassNum - 1 Where WM_ClassNum > 0")
Conn.Execute ("Update WM_Member Set WM_ClassNum = WM_ClassNum - 1 Where WM_ID = "&MemID&" and WM_ClassNum > 0")
Call WRMPS.SCache("ClassNum",WRMPS.GetCache("ClassNum") - 1)
Set ClsCre = New Cls_Create
Call ClsCre.CreClass("DEL",Int(cID(i)),1)
Set ClsCre = Nothing
End If
Rs.Close
End Select
Next
End If
Call DBConnEnd()
Call WRMPS.ErrView("·操作成功<meta http-equiv=refresh content='1;URL=?page="&Page&"&SearchKey="&SearchKey&"&Days="&Days&"&SearchID="&SearchID&"'>",1)
Case "EditSave"
ClassID = WRMPS.CheckStr(Request.form("ClassID"),0)
AreaID = WRMPS.CheckStr(Request.form("AreaID"),0)
Title = WRMPS.CheckStr(Request("title"),0)
For i = 1 To Request.Form("Content").Count
Content = Content & Request.Form("Content")(i)
Next
Content = WRMPS.CheckStr(Content,4)
Pic = WRMPS.CheckStr(WRMPS.CheckStr(Request("Pic"),0),4)
Dayss = WRMPS.CheckStr(Request("Dayss"),1)
Contact = WRMPS.CheckStr(Request("Contact"),0)
Email = WRMPS.CheckStr(Request("Email"),0)
Tel = WRMPS.CheckStr(Request("Tel"),0)
AddRess = WRMPS.CheckStr(Request("AddRess"),0)
QQ = WRMPS.CheckStr(Request("QQ"),0)
If title = "" Then Call WRMPS.ErrView("·请填写信息标题<meta http-equiv=refresh content='1;URL=?Action=Edit&ID="&ID&"&Page="&Page&"&SearchKey="&SearchKey&"&Days="&Days&"&SearchID="&SearchID&"'>",0)
If Content = "" Then Call WRMPS.ErrView("·请填写内容介绍<meta http-equiv=refresh content='1;URL=?Action=Edit&ID="&ID&"&Page="&Page&"&SearchKey="&SearchKey&"&Days="&Days&"&SearchID="&SearchID&"'>",0)
If Contact = "" Then Contact = Null
If Email = "" Then Email = NUll
If Tel = "" Then Tel = Null
If AddRess = "" Then AddRess = Null
If Pic = "" Then Pic = Null
If QQ = "" Then QQ = Null
WM_Tag = WRMPS.CheckStr(Request("WM_Tag"),0)
If Left(WM_Tag,1) = "," Then WM_Tag = Right(WM_Tag,Len(WM_Tag)-1)
If Right(WM_Tag,1) = "," Then WM_Tag = Left(WM_Tag,Len(WM_Tag)-1)
'信息过滤器
Set WRClass = New Cls_Sift
Select Case WRClass.ClassSift(title,Content,Tel,Email,QQ)
Case 1
Call WRMPS.ErrView("·信息发布失败，可能原因有：<br>·被系统判定为非法或垃圾信息<br>·电话邮箱等输入不完整",0)
Case 2
Call WRMPS.ErrView("·信息发布失败<br>·您的IP已被列入系统黑名单",0)
End Select
Set WRClass = Nothing
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)
Set Rs = Conn.Execute("Select WM_ParentDir,WM_Dir From WM_ClassSort Where WM_ID="&ClassID)
If Not Rs.Eof Then
WM_ClassDir = Rs(0)&Rs(1)
Else
Call WRMPS.ErrView("·请按规定操作 ",0)
End If
Rs.Close
Set Rs=server.createobject("adodb.recordset")
Rs.Open "Select WM_title,WM_Content,WM_Pic,WM_ClassID,WM_AreaID,WM_Contact,WM_Email,WM_QQ,WM_AddRess,WM_Tel,WM_EndTime,WM_PostTime,WM_ClassDir,WM_Tag,WM_Key,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 From WM_ClassAD Where WM_ID="&ID&" and WM_Post = '"&MemName&"'",Conn,1,3
If Not Rs.Eof Then
PostTime = Rs(11)
EndTime = Cdate(PostTime+Dayss)
Rs(0) = Title
Rs(1) = Content
Rs(2) = Pic
Rs(3) = ClassID
Rs(4) = AreaID
Rs(5) = Contact
Rs(6) = Email
Rs(7) = QQ
Rs(8) = AddRess
Rs(9) = Tel
Rs(10) = EndTime
Rs(12) = WM_ClassDir
Rs(13) = WM_Tag
WM_Key = Rs(14)
Rs(15) = DB1
Rs(16) = DB2
Rs(17) = DB3
Rs(18) = DB4
Rs(19) = DB5
Rs(20) = DB6
Rs(21) = DB7
Rs(22) = DB8
Rs(23) = DB9
Rs(24) = DB10
Rs(25) = DB1T
Rs(26) = DB2T
Rs(27) = DB3T
Rs(28) = DB4T
Rs(29) = DB5T
Rs(30) = DB6T
Rs(31) = DB7T
Rs(32) = DB8T
Rs(33) = DB9T
Rs(34) = DB10T
Rs.Update
End If
Rs.Close
Set Rs = Nothing
Call WRMPS.CreTextToImg(ID,1,Email,Tel,QQ,AddRess)
If WM_Key = 1 Then
Set ClsCre = New Cls_Create
Call ClsCre.CreClass("CRE",ID,WM_Key)
Set ClsCre = Nothing
End If
Call DBConnEnd()
Call WRMPS.ErrView("·信息修改成功<meta http-equiv=refresh content='1;URL=?page="&WRMPS.CheckStr(Request("page"),1)&"&SearchKey="&SearchKey&"&Days="&Days&"&SearchID="&SearchID&"'>",1)
Case "EditTwo"
ClassID = WRMPS.CheckStr(Request.form("ClassID"),0)
If ClassID = "" Then
ClassID = WRMPS.CheckStr(Request.form("ClassID_"),1)
End If
AreaID = WRMPS.CheckStr(Request.form("AreaID"),0)
If AreaID = "" Then
AreaID = WRMPS.CheckStr(Request.form("AreaID_"),1)
End If
Set Rs=server.createobject("adodb.recordset")
Rs.Open"Select * From WM_ClassAD Where WM_ID = "&ID&" and WM_Post = '"&MemName&"'",Conn,1,1
If Not Rs.Eof Then
Content = Content & PageTop()
Content = Content & UserPath(",<a href=User_ClassAD.asp>分类信息管理</a>")
Content = Content & "<Script language='JavaScript' Src='../Inc/GetDate.Js'></Script>" & vbCrLf
Content = Content & "<table width='100%' cellpadding=0 cellspacing=1 class=td1>" & vbCrLf
Content = Content & "<form action='?Action=EditSave&SearchKey="&SearchKey&"&Days="&Days&"&SearchID="&SearchID&"' name=myform method=POST onSubmit='return ClassPost()'>" & vbCrLf
Content = Content & "<input type=hidden name=AreaID value="&AreaID&">" & vbCrLf
Content = Content & "<input type=hidden name=ClassID value="&ClassID&">" & vbCrLf
Content = Content & "<input type=hidden name=Page value="&Page&">" & vbCrLf
Content = Content & "<input type=hidden name=ID value="&ID&">" & vbCrLf
Content = Content & "<tr><td colspan=2 Class=td4>修改分类信息</td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td width='20%'><strong>信息标题</strong></td><td width='80%'><input type=text name=title size=40 value='"&WRMPS.CheckStr(Rs("WM_title"),3)&"' maxlength=100 onKeyUp=""javascript:replaceInput(this,event)""> <font color=#FF0000>*</font></td></tr>" & vbCrLf
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$]",Rs("WM_DB1"))
TestCon = WRMPS.GetReplace(TestCon,"[$DB2$]",Rs("WM_DB2"))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -