📄 wm.class.asp
字号:
<!--#include file="WM.Sys_Cook.asp"-->
<%
Select Case WRMPS.CheckStr(Request("Action"), 0)
Case "AddSave","AddTwo","Add"
If CheckAdminFlag("ClassPost") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Case Else
If CheckAdminFlag("Class") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
End Select
Dim ID,SearchKey,PostName,Days,SearchID,AreaName,AN,N,Rs1,AreaIDName
Dim title,Pic,Dayss,Contact,Tel,AddRess,QQ,PostTime
Dim WM_Pic,repeatCharge,Charge
Dim IP,i,TestCon
Dim O_ClassKey,EndTime,WM_ClassDir,WM_ChannelDir,WM_Tag,Tag,Search_ID,S1,S2
Dim DCountOut,DIntegral,WM_Commend,WM_Key
Dim WM_aZTop,WM_aTop,WM_aTitColor,WM_aBgColor,WM_aBold,WM_aProp,WM_aTColor,WM_aBColor
Dim aKey,aCommend,aZTop,aTop,aTColor,aBColor,aTitColor,aBgColor,aBold,aProp1,aProp2,WM_Full
ChannelID = 2
WM_ChannelDir = "Class"
ID = WRMPS.CheckStr(Request("ID"), 0)
Page = WRMPS.CheckStr(Request("page"),1)
SearchKey = WRMPS.CheckStr(Request("SearchKey"),1)
PostName = WRMPS.CheckStr(Request("PostName"),0)
Days = WRMPS.CheckStr(Request("Days"),0)
SearchID = WRMPS.CheckStr(Request("SearchID"),0)
AreaName = WRMPS.CheckStr(Request("AreaName"),1)
If Days = "" or IsNUll(Days) Then Days = 0
If IsDate(Days)=True Then Days = Cdate(Days) Else Days = 0
If SearchKey = "" Then SearchKey = 0
Call DBConnBegin()
Select Case Request("Action")
Case "AddSave"
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)
Days = WRMPS.CheckStr(Request("Days"),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("·请填写信息标题 ",0)
If Content = "" Then Call WRMPS.ErrView("·请填写内容介绍 ",0)
If Contact = "" Then Contact = Null
If Email = "" Then Email = NUll
If Pic = "" Then Pic = Null
If Tel = "" Then Tel = Null
If AddRess = "" Then AddRess = Null
If QQ = "" Then QQ = Null
PostTime = Now()
EndTime = Cdate(Now()+Days)
IP = Request.ServerVariables("REMOTE_ADDR")
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)
Charge = WRMPS.CheckStr(Request.Form("Charge"), 1)
If Charge = "" Then Charge = 0
RepeatCharge = WRMPS.CheckStr(Request.Form("RepeatCharge"), 1)
If RepeatCharge = "" Then RepeatCharge = 0
TempID = WRMPS.CheckStr(Request.Form("TempID"), 1)
If TempID = "" Then TempID = 0
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
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_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_Charge,WM_RepeatCharge,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_ComID,WM_Collection,WM_aZTop,WM_aTop,WM_aBold,WM_aProp,WM_aTColor,WM_aBColor,WM_TempID,WM_Full From WM_ClassAD Where WM_ID=1",Conn,1,3
Rs.AddNew
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) = IP
Rs(11) = 1
Rs(12) = PostTime
Rs(13) = EndTime
Rs(14) = 0
Rs(15) = 0
Rs(16) = 0
Rs(17) = 2
Rs(18) = Null
Rs(19) = ChannelID
Rs(20) = WM_ClassDir
Rs(21) = WM_ChannelDir
Rs(22) = 0
Rs(23) = 0
Rs(24) = 0
Rs(25) = 0
Rs(26) = WM_Tag
Rs(27) = Charge
Rs(28) = RepeatCharge
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) = 0
Rs(50) = 0
Rs(51) = Now()
Rs(52) = Now()
Rs(53) = Now()
Rs(54) = "0|0"
Rs(55) = Now()
Rs(56) = Now()
Rs(57) = TempID
Rs(58) = 0
Rs.Update
Rs.Close
Conn.Execute("Update WM_Config Set WM_ClassNum = WM_ClassNum + 1")
WRMPS.SCache "ClassNum",WRMPS.GetCache("ClassNum") + 1
'生成
Set Rs = Conn.Execute("Select max(WM_ID) from WM_ClassAD")
If Not Rs.EOF Then
ID = Rs(0)
End If
Rs.Close
Set Rs = NoThing
Set ClsCre = New Cls_Create
Call ClsCre.CreClass("CRE",ID,1)
Set ClsCre = Nothing
Call WRMPS.CreTextToImg(ID,1,Email,Tel,QQ,AddRess)
Call DBConnEnd()
Call WRMPS.ErrView("·信息发布成功<br>·<a href=WM.Class.asp>返回信息列表</a><br>·<a href=?Action=Add>继续发布</a><meta http-equiv=refresh content='1;URL=?Action=Add'>",1)
Case "AddTwo"
ClassID = WRMPS.CheckStr(Request.form("ClassID"),1)
AreaID = WRMPS.CheckStr(Request.form("AreaID"),1)
If ClassID ="" Then Call WRMPS.ErrView("·请选择信息所属分类<meta http-equiv=refresh content='1;URL=?Action=Add'>",0)
If ClassID < 1 Then Call WRMPS.ErrView("·请选择信息所属分类<meta http-equiv=refresh content='1;URL=?Action=Add'>",0)
If AreaID = "" Then Call WRMPS.ErrView("·请选择信息所在地区<meta http-equiv=refresh content='1;URL=?Action=Add'>",0)
If AreaID < 1 Then Call WRMPS.ErrView("·请选择信息所在地区<meta http-equiv=refresh content='1;URL=?Action=Add'>",0)
Content = Content & "<Script language='JavaScript' Src='../Inc/GetDate.Js'></Script>" & vbCrLf
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
Content = Content & "<form method='POST' name='myform' action='?Action=AddSave'>" & vbCrLf
Content = Content & "<input type=hidden name=ClassID value="&ClassID&">" & vbCrLf
Content = Content & "<input type=hidden name=AreaID value="&AreaID&">" & vbCrLf
Content = Content & "<tr Class=td4><td colspan=2> <strong>发布分类信息</strong></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td width='20%'><strong>信息标题</strong></td><td width='80%'><input type=text maxlength=100 name=title size=40> <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$]","")
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=1',350,150);"">添加附件</a></div><div style='width:120px; height:120px; z-index:1;overflow:auto;' class=div ID=PicPreview><Img src='img/nopic.gif'></div></div></td><td><INPUT type='hidden' name='Content' value=''><IFRAME ID=EditContent SRC='../Plus/Edit/edit.asp?ID=Content&sMode=EDIT&Tool=' 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></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>Email</strong></td><td><input type=text name=Email size=30 maxlength=50></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>联系电话</strong></td><td><input type=text name=Tel size=30 maxlength=50><br>如为座机或小灵通请填写：区号-电话号码</td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>联系地址</strong></td><td><input type=text name=AddRess size=30 maxlength=200></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>QQ</strong></td><td><input type=text name=QQ size=30 maxlength=12></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
Content = Content & "<tr class=td4><td colspan=2><strong>收费选项</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>阅读"&WR_Other(0)&"</strong><br>免费阅读请设为 0，否则有权限的会员阅读此文章时将消耗相应"&WR_Other(0)&"，游客将无法阅读此文章<br><font class=font2>频道内容页设置生成HTML时收费无效</font></td>" & vbCrLf
Content = Content & "<td><input name='Charge' type='text' style='width:50' maxlength='19' value='0'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>重复收费</strong><br>选择开启则用户每阅读此内容一次就重复收费一次</td>" & vbCrLf
Content = Content & "<td><input type=radio name='RepeatCharge' value='1'> 开启 <input type=radio name='RepeatCharge' value='0' checked> 关闭</td></tr>" & vbCrLf
Content = Content & "<tr class=td4><td colspan=2><strong>模板选项</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>模板选择</strong></td><td>"&TempSelect(0,17,2,"TempID")&"</td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td></td><td><input type=submit value='提交信息' onclick=""Loading.style.display='';Loading.style.bottom=100;""></td></tr>" & vbCrLf
Content = Content & "</form>" & vbCrLf
Content = Content & "</table>" & vbCrLf
Case "Add"
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
Content = Content & "<form method='POST' name='myform' action='?Action=AddTwo'>" & vbCrLf
Content = Content & "<tr Class=td4><td colspan=2> <strong>发布分类信息</strong></td></tr>" & vbCrLf
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='下一步'></td></tr>" & vbCrLf
Content = Content & "</form>" & vbCrLf
Content = Content & "</table>" & vbCrLf
Case "Save"
Dim CSaveID,rFlag,MyClassNum,MyCountOut,User
Call DBConnBegin()
CSaveID = WRMPS.CheckStr(Request("CSaveID"), 0)
CSaveID = Replace(CSaveID," ","")
If CSaveID <> "" Then
CSaveID = Split(CSaveID, ",")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -