📄 user_classad.asp
字号:
Content = Content & "此信息已审核"
Else
Content = Content & "道具使用："&WM_aProp(0)&"次<br><input type=checkbox name=aKey value=1 onclick='ShowChange(1,1,"&WR_Prop(14)&","&WR_Prop(15)&","&DIntegral&","&DCountOut&")'> 购买"
End If
Content = Content & "</td>" & vbCrlf
Content = Content & " </tr>" & vbCrlf
Content = Content & "</table>" & vbCrlf
Content = Content & "</td>" & vbCrlf
Content = Content & " <td width='34%'>"
Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
Content = Content & " <tr>" & vbCrlf
Content = Content & " <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='Img/dj3.gif'></div></td>" & vbCrlf
Content = Content & " <td style='padding:0 5px' valign=top><strong>总置顶道具</strong><br>积分：<span class=Font2>"&WR_Prop(18)&"</span>/天<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(19)&"</span>/天<br>"
If Cdate(WM_aZTop) > Now() Then
Content = Content & "已使用 (到期："&Year(WM_aZTop)&"-"&Month(WM_aZTop)&"-"&Day(WM_aZTop)&")<br>再次"
End If
Content = Content & "购买 <input type=text name=aZTop value=0 size=5 onKeyUp='ShowChange(3,this.value,"&WR_Prop(18)&","&WR_Prop(19)&","&DIntegral&","&DCountOut&")'> 天"
Content = Content & "</td>" & vbCrlf
Content = Content & " </tr>" & vbCrlf
Content = Content & "</table>" & vbCrlf
Content = Content & "</td>" & vbCrlf
Content = Content & " <td width='33%'>"
Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
Content = Content & " <tr>" & vbCrlf
Content = Content & " <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='Img/dj4.gif'></div></td>" & vbCrlf
Content = Content & " <td style='padding:0 5px' valign=top><strong>分类置顶道具</strong><br>积分：<span class=Font2>"&WR_Prop(20)&"</span>/天<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(21)&"</span>/天<br>"
If Cdate(WM_aTop) > Now() Then
Content = Content & "已使用 (到期："&Year(WM_aTop)&"-"&Month(WM_aTop)&"-"&Day(WM_aTop)&")<br>再次"
End If
Content = Content & "购买 <input type=text name=aTop value=0 size=5 onKeyUp='ShowChange(4,this.value,"&WR_Prop(20)&","&WR_Prop(21)&","&DIntegral&","&DCountOut&")'> 天"
Content = Content & "</td>" & vbCrlf
Content = Content & " </tr>" & vbCrlf
Content = Content & "</table>" & vbCrlf
Content = Content & "</td>" & vbCrlf
Content = Content & " </tr><tr><td height=8px colspan=3></td></tr><tr>" & vbCrlf
Content = Content & " <td>"
Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
Content = Content & " <tr>" & vbCrlf
Content = Content & " <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='Img/dj2.gif'></div></td>" & vbCrlf
Content = Content & " <td style='padding:0 5px' valign=top><strong>自动推荐道具</strong><br>积分：<span class=Font2>"&WR_Prop(16)&"</span>/次<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(17)&"</span>/次<br>"
If WM_Commend > 0 Then
Content = Content & "此信息已推荐"
Else
Content = Content & "道具使用："&WM_aProp(1)&"次<br><input type=checkbox name=aCommend value=1 onclick='ShowChange(2,1,"&WR_Prop(16)&","&WR_Prop(17)&","&DIntegral&","&DCountOut&")'> 购买"
End If
Content = Content & "</td>" & vbCrlf
Content = Content & " </tr>" & vbCrlf
Content = Content & "</table>" & vbCrlf
Content = Content & "</td>" & vbCrlf
Content = Content & " <td>"
Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
Content = Content & " <tr>" & vbCrlf
Content = Content & " <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='Img/dj5.gif'></div></td>" & vbCrlf
Content = Content & " <td style='padding:0 5px' valign=top><strong>标题变色道具</strong><br>积分：<span class=Font2>"&WR_Prop(22)&"</span>/天<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(23)&"</span>/天<br>"
If Cdate(WM_aTColor) > Now() Then
Content = Content & "已使用 <span style='padding:5px;background:"&WM_aTitColor&"' title='当前颜色'><img width=0 height=0 align=absmiddle></span>(到期："&Year(WM_aTColor)&"-"&Month(WM_aTColor)&"-"&Day(WM_aTColor)&")<br>再次"
End If
Content = Content & "购买 <input type=text name=aTColor value=0 size=5 onKeyUp='ShowChange(5,this.value,"&WR_Prop(22)&","&WR_Prop(23)&","&DIntegral&","&DCountOut&")'> 天"
Content = Content & "<br>换换颜色 "&Color("aTitColor")
Content = Content & "</td>" & vbCrlf
Content = Content & " </tr>" & vbCrlf
Content = Content & "</table>" & vbCrlf
Content = Content & "</td>" & vbCrlf
Content = Content & " <td>"
Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
Content = Content & " <tr>" & vbCrlf
Content = Content & " <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='Img/dj6.gif'></div></td>" & vbCrlf
Content = Content & " <td style='padding:0 5px' valign=top><strong>标题背景色道具</strong><br>积分：<span class=Font2>"&WR_Prop(24)&"</span>/天<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(25)&"</span>/天<br>"
If Cdate(WM_aBColor) > Now() Then
Content = Content & "已使用 <span style='padding:5px;background:"&WM_aBgColor&"' title='当前颜色'><img width=0 height=0 align=absmiddle></span>(到期："&Year(WM_aBColor)&"-"&Month(WM_aBColor)&"-"&Day(WM_aBColor)&")<br>再次"
End If
Content = Content & "购买 <input type=text name=aBColor value=0 size=5 onKeyUp='ShowChange(6,this.value,"&WR_Prop(24)&","&WR_Prop(25)&","&DIntegral&","&DCountOut&")'> 天"
Content = Content & "<br>换换颜色 "&Color("aBgColor")
Content = Content & "</td>" & vbCrlf
Content = Content & " </tr>" & vbCrlf
Content = Content & "</table>" & vbCrlf
Content = Content & "</td>" & vbCrlf
Content = Content & " </tr><tr><td height=8px colspan=3></td></tr><tr>" & vbCrlf
Content = Content & " <td>"
Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
Content = Content & " <tr>" & vbCrlf
Content = Content & " <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='Img/dj7.gif'></div></td>" & vbCrlf
Content = Content & " <td style='padding:0 5px' valign=top><strong>标题加粗道具</strong><br>积分：<span class=Font2>"&WR_Prop(26)&"</span>/天<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(27)&"</span>/天<br>"
If Cdate(WM_aBold) > Now() Then
Content = Content & "已使用 (到期："&Year(WM_aBold)&"-"&Month(WM_aBold)&"-"&Day(WM_aBold)&")<br>再次"
End If
Content = Content & "购买 <input type=text name=aBold value=0 size=5 onKeyUp='ShowChange(7,this.value,"&WR_Prop(26)&","&WR_Prop(27)&","&DIntegral&","&DCountOut&")'> 天"
Content = Content & "</td>" & vbCrlf
Content = Content & " </tr>" & vbCrlf
Content = Content & "</table>" & vbCrlf
Content = Content & "</td>" & vbCrlf
Content = Content & " <td>"
Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
Content = Content & " <tr>" & vbCrlf
Content = Content & " <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='Img/dj8.gif'></div></td>" & vbCrlf
Content = Content & " <td style='padding:0 5px' valign=top><strong>全屏信息道具</strong><br>积分：<span class=Font2>"&WR_Prop(28)&"</span><br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(29)&"</span><br>"
If WM_Full > 0 Then
Content = Content & "已使用"
Else
Content = Content & "购买 <input type=checkbox name=WM_Full value=1 onclick='ShowChange(2,1,"&WR_Prop(28)&","&WR_Prop(29)&","&DIntegral&","&DCountOut&")'> 购买"
End If
Content = Content & "</td>" & vbCrlf
Content = Content & " </tr>" & vbCrlf
Content = Content & "</table>" & vbCrlf
Content = Content & "</td>" & vbCrlf
Content = Content & " </tr>" & vbCrlf
Content = Content & " <tr class=td2><td colspan=3 height=60px><div style='text-align:center'>"
Content = Content & "您目前拥有 <span class=Font2><strong>"&DCountOut&"</strong></span> "&WR_Other(0)&" 和 <span class=Font2><strong>"&DIntegral&"</strong></span> 积分，当前选择的道具共需 <strong><span class=Font2 id=Ct>0</span></strong> "&WR_Other(0)&" 和 <strong><span class=Font2 id=Il>0</span></strong> 积分。"
Content = Content & "<br><input type=checkbox name=DelDJ value=1>取消所有已使用的道具 <input onclick='ShowChange(-1,0,0,0,"&DIntegral&","&DCountOut&");' type='button' value='确认购买'></div>"
Content = Content & " <tr class=td3><td colspan=3><li>道具购买成功后如果信息被删除或取消道具使用将不在返还道具购买费用<li>购买标题变色或背景色道具后可以随时免费变换颜色。</td></tr>" & vbCrlf
Content = Content & "</form>"
Content = Content & "</table>" & vbCrlf
Case Else
If SearchID <> "" Then
SearchID = Replace(Replace(SearchID, " ", ""), " ", "")
Select Case Split(SearchID,",")(1)
Case 1
If IsNumeric(Split(SearchID,",")(0)) Then
Search_ID = " and WM_ID =" & Split(SearchID,",")(0)
Else
Call WRMPS.ErrView("·搜索出错：ID必须为数字",0)
End If
Case 2
Search_ID = " and WM_Title like'%" & Split(SearchID,",")(0) &"%'"
End Select
Else
Search_ID = ""
End If
Content = Content & PageTop()
Content = Content & UserPath(",<a href=User_ClassAD.asp>分类信息管理</a>")
Content = Content & "<table width='100%' cellpadding=0 cellspacing=1 class=td1><tr class=td2>" & vbCrLf
Content = Content & "<form name='form1' action='User_ClassAD.asp?Days="&Days&"&SearchID="&SearchID&"' method='post'><td width='10%'>"
Content = Content & "<select name=SearchKey onChange='javascript:submit()'>" & vbCrLf
Content = Content & "<option value=0"&WRMPS.GetCheckVer(0,Int(SearchKey),0)&">==类型==</option>" & vbCrLf
Content = Content & "<option value=2"&WRMPS.GetCheckVer(2,Int(SearchKey),0)&">已审核</option>" & vbCrLf
Content = Content & "<option value=1"&WRMPS.GetCheckVer(1,Int(SearchKey),0)&">待审核</option>" & vbCrLf
Content = Content & "<option value=3"&WRMPS.GetCheckVer(3,Int(SearchKey),0)&">已推荐</option>" & vbCrLf
Content = Content & "</select></td></form>" & vbCrLf
Content = Content & "<form name='form1' action='User_ClassAD.asp?SearchKey="&SearchKey&"&SearchID="&SearchID&"' method='post'><td width='10%'>"
Content = Content & " <select name='Days' onChange='javascript:submit()'>" & vbCrLf
Content = Content & "<option value=0>==日期==</option>" & vbCrLf
For i=0 to 180
Content = Content & "<option value='"&date()-i&"'"&WRMPS.GetCheckVer(date()-i,Days,0)&">"&date()-i&"</option>" & vbCrLf
Next
Content = Content & "</select> </td></form>" & vbCrLf
If SearchID <> "" Then
S1 = Split(SearchID,",")(0)
S2 = Int(Split(SearchID,",")(1))
End If
Content = Content & "<form name='form1' action='User_ClassAD.asp?SearchKey="&SearchKey&"&Days="&Days&"' method='post'><td width='80%'>"
Content = Content & "<input type='text' name='SearchID' size=20 value="&S1&"><select name=SearchID><option value=1"&WRMPS.GetCheckVer(1,S2,0)&">按ID</option><option value=2"&WRMPS.GetCheckVer(2,S2,0)&">按标题</option></select> <input type='submit' name='Submit' value='查找'></td></form>" & vbCrLf
Content = Content & "</tr></Table>" & vbCrLf
Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
Content = Content & "<form action='?Action=Save&Page="&Page&"&SearchKey="&SearchKey&"&Days="&Days&"&SearchID="&SearchID&"' name=myform method=POST>" & vbCrLf
Content = Content & "<tr><td class=td4 colspan=9>信息管理</td></tr>" & vbCrLf
Content = Content & "<tr align=center class=td3>" & vbCrLf
Content = Content & "<td width='3%'> </td>" & vbCrLf
Content = Content & "<td>标题</td>" & vbCrLf
Content = Content & "<td width='15%'>到期时间</td>" & vbCrLf
Content = Content & "<td width='4%'>审核</td>" & vbCrLf
Content = Content & "<td width='4%'>推荐</td>" & vbCrLf
Content = Content & "<td width='4%'>查看</td>" & vbCrLf
Content = Content & "<td width='4%'>回复</td>" & vbCrLf
Content = Content & "<td width='5%'>道具</td>" & vbCrLf
Content = Content & "<td width='10%'>管理</td></tr>" & vbCrLf
Dim SKey,Ds,SID
Select Case SearchKey
Case 1
SKey = " and [WM_Key]=0"
Case 2
SKey = " and [WM_Key]=1"
Case 3
SKey = " and [WM_Commend]=1"
Case Else
SKey = ""
End Select
If Days > 0 Then
If ConnTypeStr = 0 Then
Ds = " and WM_PostTime>#"&CDate(Days)&"# and WM_PostTime<#"&CDate(Days)+1&"#"
Else
Ds = " and WM_PostTime>'"&CDate(Days)&"' and WM_PostTime<'"&CDate(Days)+1&"'"
End If
End If
Set Rs=Server.Createobject("adodb.recordset")
sql = "select WM_ID,WM_title,WM_PostTime,WM_Key,WM_Commend,WM_Re,WM_Hit,WM_PostType,WM_Post,WM_EndTime,WM_ChannelDir,WM_ClassDir,WM_ChannelID,WM_AreaID,WM_aZTop,WM_aTop,WM_aTColor,WM_aBColor,WM_aBold,WM_aProp,WM_Full from WM_ClassAD where WM_PostType = 1"&SKey&Ds&Search_ID&" and WM_Post='"&MemName&"' order by WM_ID desc"
Rs.Open Sql, Conn, 1, 1
If Rs.EOF Then
Content = Content & "<tr><td colspan=9></td></tr></table>" & vbCrLf
Else
'分页的实现
ListNum = 20
Rs.PageSize = ListNum
If Page = "" Then Page = 1
If Page < 1 Then Page = 1
Rs.AbsolutePage = Page
i = 0
If Page = "" Then N = 0 Else N = ListNum * (Page - 1)
Do While Not Rs.EOF And i < ListNum
N = N + 1
Content = Content & "<tr class=td2 align=center>" & vbCrLf
Content = Content & "<td><input type=checkbox name=cID value="&Rs(0)&"></td>" & vbCrLf
Content = Content & "<td align=left><a href="&WRMPS.GetShowUrl(1,1,0,Rs(0),Rs(2),Rs(10)&"/"&Rs(11),Rs(12))&" target=_blank>"&Rs(1)&"</a></td>" & vbCrLf
Content = Content & "<td>"&Rs(9)&"</td>" & vbCrLf
Content = Content & "<td>"
if rs(3)=1 then Content = Content & "√" else Content = Content & "<b><font color=#FF0000>×</font></b>"
Content = Content & "</td>" & vbCrLf
Content = Content & "<td>"
if rs(4)=1 then Content = Content & "<b><font color=#FF0000>√</font></b>" else Content = Content & "×"
Content = Content & "</td>" & vbCrLf
Content = Content & "<td>"&Rs(6)&"</td>" & vbCrLf
Content = Content & "<td><a href=User_ClassRe.asp?AID="&Rs(0)&">"&Rs(5)&"</a></td>" & vbCrLf
Content = Content & "<td><a href=# onClick=""openWithIframe('信息道具','?Action=DJ&ID="&Rs(0)&"',800,500);"">"
If Rs(14) < Now() And Rs(15) < Now() And Rs(16) < Now() And Rs(17) < Now() And Rs(18) < Now() And Trim(Rs(19)) = "0|0" And Rs(20) = 0 Then
Content = Content & "<img src='img/djno.gif' title='未使用道具' border=0>"
Else
Content = Content & "<img src='img/dj.gif' title='已使用道具' border=0>"
End If
Content = Content & "</a></td>" & vbCrLf
Content = Content & "<td>"
Content = Content & "<a href='?Action=Edit&ID="&Rs(0)&"&Page="&Page&"&SearchKey="&SearchKey&"&Days="&Days&"&SearchID="&SearchID&"'>修改</a> <a href='?Action=Save&Work=Del&cID="&Rs(0)&"&Page="&Page&"&SearchKey="&SearchKey&"&Days="&Days&"&SearchID="&SearchID&"' onclick=""return confirm('确定删除？');Loading.style.display='';"">删除</a>"
Content = Content & "</td></tr>" & vbCrLf
Rs.MoveNext
i = i + 1
Loop
URLParameter = "SearchKey="&SearchKey&"&Days="&Days&"&SearchID="&SearchID
Content = Content & "</table>" & vbCrLf
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 align=center class=td5><tr><td height=30>" & vbCrLf
Content = Content & "<input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选 <select name='Work'><option value='Del'>删除</option></select> <input type='submit' name='submit' value='操 作' onclick=""Loading.style.display='';"">" & vbCrLf
Content = Content & "</td><td align=right>" & vbCrLf
Content = Content & WRMPS.GetPageList(URLParameter, ListNum, Rs.RecordCount, Page) ' 插入分页
Content = Content & "</td></tr></Form></table>" & vbCrLf
End If
Rs.Close
Set Rs=Nothing
Content = Content & PageButtom()
Call DBConnEnd()
End Select
Response.write Content
Call WRMPS.Loading("")
Call ClassEnd()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -