📄 cls_class.asp
字号:
for i_page_3 = 1 to Page_Temp2
Selected = ""
if cstr(page) = cstr(i_page_3) then
Response.Write(" <strong>"&i_page_3&"</strong>")
else
Response.Write(" <a href='"&pageUrl&"?Src_Child="&Src_Child&"&order_by="&order_by&"&Tags_Name="&Tags_Name&"&Tags_ID="&Tags_ID&"&S_Havving="&S_Havving&"&Page="&i_page_3&"&user_id="&User_ID&"'>"&i_page_3&"</a>")
end if
next
if RsPageCount > 10 then
Response.Write(" <Select name='Page' onchange='javascript:frm_Page_2.submit();'>")
for i_page_2 = 11 to RsPageCount
Selected = ""
if cstr(page) = cstr(i_page_2) then Selected = " Selected"
Response.Write("<option value='"&i_page_2&"'" & Selected & ">"&i_page_2&"</option>")
next
Response.Write("</Select>")
Response.Write("<input type='hidden' name='Src_Child' value='"&Src_Child&"' />")
Response.Write("<input type='hidden' name='S_Havving' value='"&S_Havving&"'/>")
Response.Write("<input type='hidden' name='Tags_Name' value='"&Tags_Name&"' />")
Response.Write("<input type='hidden' name='Tags_ID' value='"&Tags_ID&"'/>")
Response.Write("<input type='hidden' name='Order_By' value='"&Order_By&"' />")
Response.Write("<input type='hidden' name='User_ID' value='"&User_ID&"' />")
end if
Response.Write(" (<strong>"&page&"</strong> / <strong>"&RsPageCount&"</strong>)")
Response.Write(" </td></form>")
Response.Write("</tr>")
Response.Write("</table>")
End Function
Public Sub Get_Msg
Response.Write("<TABLE cellSpacing=3 cellPadding=3 width='100%' border=0>"&Vbcr)
Set Rs_Msg = Server.CreateObject("adodb.recordset")
Sql = "Select * from Wo_Message Where Msg_IsOver=false Order By Msg_OrderBy"
Rs_Msg.open sql,conn
i_msg = 0
while not Rs_Msg.eof and i_msg < Web_MessageNum
i_msg = i_msg + 1
Response.Write("<TR>"&Vbcr)
Response.Write("<TD class='postbg1'>"&Vbcr)
Response.Write("<img src='Images/gonggao.gif'>"&Vbcr)
Response.Write("<a href='ShowMsg.asp?Msg_ID="&Rs_Msg("Msg_ID")&"' target='wh'>"&Server.HTMLEncode(Rs_Msg("Msg_Title"))&"</a>"&Vbcr)
Response.Write(Rs_Msg("Msg_AddDate")&Vbcr)
Response.Write("</TD>"&Vbcr)
Response.Write("</TR> "&Vbcr)
Rs_Msg.MoveNext
wend
Rs_Msg.Close()
Set Rs_Msg = Nothing
Response.Write("</TABLE>"&Vbcr)
End Sub
Public Sub Get_Msgs
Response.Write("<TABLE cellSpacing=3 cellPadding=3 width='100%' border=0>"&Vbcr)
Set Rs_Msg = Server.CreateObject("adodb.recordset")
Sql = "Select * from Wo_Message Where Msg_IsOver=false Order By Msg_OrderBy"
Rs_Msg.open sql,conn
i_msg2 = 0
while not Rs_Msg.eof and i_msg2 < Web_HotNum
i_msg2 = i_msg2 + 1
Response.Write("<TR>"&Vbcr)
Response.Write("<TD class='postbg1'>"&Vbcr)
Response.Write("<img src='Images/gonggao.gif'>"&Vbcr)
Response.Write("<a href='ShowMsg.asp?Msg_ID="&Rs_Msg("Msg_ID")&"' target='wh'>"&Server.HTMLEncode(Rs_Msg("Msg_Title"))&"</a>"&Vbcr)
Response.Write(Rs_Msg("Msg_AddDate")&Vbcr)
Response.Write("</TD>"&Vbcr)
Response.Write("</TR> "&Vbcr)
Rs_Msg.MoveNext
wend
Rs_Msg.Close()
Set Rs_Msg = Nothing
Response.Write("</TABLE>"&Vbcr)
End Sub
public Sub Get_GoodTopic
Response.Write("<TABLE cellSpacing=3 cellPadding=3 width='100%' border=0>"&Vbcr)
Set Rs_Good = Server.CreateObject("adodb.recordset")
Sql ="select * from [Wo_Threads] where IsApproved=1 and IsDel=0 and PostTime>"&SqlNowString&"-"&SiteConfig("PopularPostThresholdDays")&" order by TotalReplies Desc"
Rs_Good.open sql,conn
i_msg1 = 0
while not Rs_Good.eof and i_msg1 < Web_HotNum
i_msg1 = i_msg1 + 1
Response.Write("<TR>"&Vbcr)
Response.Write("<TD class='postbg1'>"&Vbcr)
Response.Write("<img src='Images/frame_0.gif'>"&Vbcr)
Response.Write("<a href='ShowPost.asp?ThreadID="&Rs_Good("ThreadID")&"' target='wh'>"&Rs_Good("Topic")&"</a>"&Vbcr)
Response.Write(" ( " & Rs_Good("TotalViews")&""&Vbcr)
Response.Write(" )</TD>"&Vbcr)
Response.Write("</TR> "&Vbcr)
Rs_Good.MoveNext
wend
Rs_Good.Close()
Set Rs_Good = Nothing
Response.Write("</TABLE>"&Vbcr)
end Sub
Public Sub Get_SysTags
Response.Write("<table width='85%' border='0' align='center' cellpadding='0' cellspacing='3'>")
Response.Write("<tr>")
Response.Write("<td valign='top'>")
Call WoDig.Get_TagsList(Web_SysTagsShowNum,Web_SysTagsColNum,Web_SysTagsDCount,Session("_WTypeID"),"SYS")
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</table>")
End Sub
Public Sub Get_Revert
Set Rs_Revert = Server.CreateObject("Adodb.recordset")
Sql = "SELECT Top 10 Wo_SrcRevert.*, wo_source.Src_Title,wo_source.Src_AddDate,wo_source.Src_ID, wo_source.Src_UserID, wo_source.Src_GGDesc, Wo_Users.UserID, Wo_Users.UserName, Wo_Users.UserFaceUrl " & _
"FROM (wo_source INNER JOIN Wo_SrcRevert ON wo_source.Src_ID = Wo_SrcRevert.Re_SrcID) INNER JOIN Wo_Users ON Wo_SrcRevert.Re_UserID = Wo_Users.UserID Where 1=1"
if Src_Child <> -1 then '二级类
Sql = Sql & " and wo_source.Src_ChildID=" & Src_Child
end if
Sql = Sql & " Order By Re_ID Desc"
Rs_Revert.Open Sql,conn,1,2
i2 = 0
while not Rs_Revert.eof and i2 < Web_RevertRecordNum
i2 = i2 + 1
Response.Write("<table width='96%' border='0' align='center' cellpadding='0' cellspacing='3'>"&Vbcr)
Response.Write("<tr class='postbg1'>"&Vbcr)
Response.Write("<td valign='top'><table width='100%' border='0' cellspacing='0' cellpadding='3'>"&Vbcr)
Response.Write("<tr>"&Vbcr)
Response.Write("<td width='35' valign='top'><table width='30' border='0' cellpadding='0' cellspacing='3' bgcolor='#e1e1e1'>"&Vbcr)
Response.Write("<tr>"&Vbcr)
Response.Write("<td bgcolor='#FFFFFF'><img src='"&Rs_Revert("UserFaceUrl")&"' width='30' height='30' border=0 /></td>"&Vbcr)
Response.Write("</tr>"&Vbcr)
Response.Write("</table></td>"&Vbcr)
Response.Write("<td>"&Vbcr)
Response.Write("<span class='green'><a href='profile.asp?UserName="&Rs_Revert("UserName")&"' target='wh'>"&Server.HTMLEncode(Rs_Revert("UserName"))&"</a> 评价 <a href='show.asp?Src_ID="&Rs_Revert("Src_ID")&"' target='wh'>"&Server.HTMLEncode(Rs_Revert("Src_Title"))&"</a>：</span> ")
if Rs_Revert("Re_Content") <> "" and isNull(Rs_Revert("Re_Content"))=false then
Re_Content=Rs_Revert("Re_Content")
Re_Content = WoDig.DecodeFilter(Re_Content,"SCRIPT,TABLE,CLASS,XML,NAMESPACE,MARQUEE,OBJECT,STYLE,EMBED,DIV,ONLOAD,ONCLICK,ONDBCLICK,FONT,IMG")
Re_Content = WoDig.get_StrLen(Re_Content,Web_ContentTxtNum)
Re_Content = Replace(Re_Content,"""","'")
Response.Write(left(Re_Content,Web_RevertTxtNum))
end if
Response.Write("<a href='show.asp?Src_ID="&Rs_Revert("Src_ID")&"' target='wh'> (全文)</a>")
Response.Write("</td>"&Vbcr)
Response.Write("</tr>"&Vbcr)
Response.Write("</table>"&Vbcr)
Response.Write("</td>"&Vbcr)
Response.Write("</tr>"&Vbcr)
Response.Write("</table>"&Vbcr)
Rs_Revert.MoveNext
Wend
Rs_Revert.Close
Set Rs_Revert = Nothing
End Sub
Public Sub Get_UserTags
Response.Write("<table width='96%' border='0' align='center' cellpadding='0' cellspacing='3'>"&Vbcr)
Response.Write("<tr>"&Vbcr)
Response.Write("<td valign='top'>"&Vbcr)
Call WoDig.Get_TagsList(Web_WebTagsShowNum,Web_WebTagsColNum,Web_WebTagsDCount,Session("_WTypeID"),"Other")
Response.Write("</td>"&Vbcr)
Response.Write("</tr>"&Vbcr)
Response.Write("</table>"&Vbcr)
End Sub
Public Sub Get_TopUser
Response.Write("<table width='96%' border='0' align='center' cellpadding='0' cellspacing='3'>"&Vbcr)
Response.Write("<tr>"&Vbcr)
Set Rs_PaiMin = Server.CreateObject("Adodb.recordset")
Sql_PaiMin = "SELECT Top 18 * FROM Wo_Users order by Wo_Users.UserMoney Desc"
Rs_PaiMin.open Sql_PaiMin,conn
Z_IC = 0
while not Rs_PaiMin.eof and Z_IC < 18
Z_IC = Z_IC + 1
Response.Write("<td>"&vbcr)
Response.Write("<div align=center>"&vbcr)
Response.Write("<table border='0' cellpadding='0' cellspacing='1' bgcolor='#e1e1e1'>"&vbcr)
Response.Write("<tr>"&vbcr)
Response.Write("<td bgcolor='#FFFFFF' align=center><a href='profile.asp?UserName="& Rs_PaiMin("UserName") &"' target='wh'><img src='"& Rs_PaiMin("UserFaceUrl") &"' width='35' height='35' border='0' title='"& Rs_PaiMin("UserName")&" 有 "& Rs_PaiMin("UserMoney") & " 积分！' /></a></td>"&vbcr)
Response.Write("</tr>"&vbcr)
Response.Write("</table>"&vbcr)
Response.Write("<a href='profile.asp?UserName="& Rs_PaiMin("UserName") &"' target='wh'>"&Rs_PaiMin("UserName")&"</a>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("</td>"&vbcr)
if Z_IC Mod 6 = 0 then Response.Write("</tr><tr>")
Rs_PaiMin.movenext
Wend
Rs_PaiMin.close
Set Rs_PaiMin = nothing
Response.Write("</table>"&vbcr)
End Sub
Public Sub Get_NewUser
Response.Write("<table width='96%' border='0' align='center' cellpadding='0' cellspacing='3'>"&Vbcr)
Response.Write("<tr>"&Vbcr)
Set Rs_PaiMin = Server.CreateObject("Adodb.recordset")
Sql_PaiMin = "SELECT Top 18 * FROM Wo_Users order by Wo_Users.UserRegisterTime Desc"
Rs_PaiMin.open Sql_PaiMin,conn
Z_IC = 0
while not Rs_PaiMin.eof and Z_IC < 18
Z_IC = Z_IC + 1
Response.Write("<td>"&vbcr)
Response.Write("<div align=center>"&vbcr)
Response.Write("<table border='0' cellpadding='0' cellspacing='1' bgcolor='#e1e1e1'>"&vbcr)
Response.Write("<tr>"&vbcr)
Response.Write("<td bgcolor='#FFFFFF' align=center><a href='profile.asp?UserName="& Rs_PaiMin("UserName") &"' target='wh'><img src='"& Rs_PaiMin("UserFaceUrl") &"' width='35' height='35' border='0' title='"& Rs_PaiMin("UserName")&" "& Rs_PaiMin("UserRegisterTime") & " 注册！' /></a></td>"&vbcr)
Response.Write("</tr>"&vbcr)
Response.Write("</table>"&vbcr)
Response.Write("<a href='profile.asp?UserName="& Rs_PaiMin("UserName") &"' target='wh'>"&left(Rs_PaiMin("UserName"),8)&"</a>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("</td>"&vbcr)
if Z_IC Mod 6 = 0 then Response.Write("</tr><tr>")
Rs_PaiMin.movenext
Wend
Rs_PaiMin.close
Set Rs_PaiMin = nothing
Response.Write("</table>"&vbcr)
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -