📄 ppst_sub.asp
字号:
rs.MoveNext
loop
Response.Write "<tr><td height=5 colspan=2 bgcolor=#FFFFFF></td></tr></table>"
End If
Rs.Close%>
<table width=100% border=0 align=center cellpadding=0 cellspacing=1 bgcolor=#CCCCCC id="viewpl"<%If PinglunReply=0 then response.Write "style=""display:none"""%>>
<%Response.Write "<form action="&ThisFileName&"?Action=Pinglun&ID="&NewsID&" method=post>"
Response.Write "<tr><td width=6% align=center valign=middle bgcolor=#EEEEEE>"
Response.Write "姓名：</td><td width=94% align=left valign=top bgcolor=#FFFFFF>"
Response.Write "<input name=Author type=text size=10 />标题："
Response.Write "<input name=Title type=text size=30 Value=Re:"&Title&" /></td></tr>"
Response.Write "<tr><td width=6% align=center valign=middle bgcolor=#FFFFFF>内容：</td>"
Response.Write "<td width=94% align=left valign=top bgcolor=#FFFFFF>"
Response.Write "<textarea name=Content cols=45 rows=5></textarea></td></tr>"
Response.Write "<tr><td align=left valign=middle bgcolor=#EEEEEE></td>"
Response.Write "<td align=left valign=middle bgcolor=#EEEEEE>"
Response.Write "<input type=submit name=Submit value=提交> <font color=#ff0000>"&request("Msg")&"</font></td></tr><tr><td height=5></td><td></td></tr></form></table>"
End If
End Sub
'
Dim ReadNews_Title,ReadNews_Author,ReadNews_AddTime,ReadNews_ReadCishu,ReadNews_Content,ReadNews_BigClassID,ReadNews_BigClassName,ReadNews_SmallClassID,ReadNews_SmallClassName,ReadNews_SmallPicURL
Sub PPst_ReadNews(NewsID)
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From PPst_News Where ID="&NewsID+1-1
rs.open sql,conn,1,3
rs("ReadCishu")=rs("ReadCishu")+1
rs.update
If Rs.RecordCount=0 then
response.Write "该条新闻已经删除或者不存在"
response.End()
End If
ReadNews_Title=Server.HTMLEncode(rs("Title"))
ReadNews_Author=Server.HTMLEncode(rs("Author"))
ReadNews_AddTime=rs("AddTime")
ReadNews_ReadCishu=rs("ReadCishu")
ReadNews_Content=rs("Content")
ReadNews_SmallPicURL=rs("SmallPicURL")
ReadNews_BigClassID=Rs("BigClassID")
ReadNews_BigClassName=GetBigClassName(Rs("BigClassID"))
ReadNews_SmallClassID=Rs("SmallClassID")
ReadNews_SmallClassName=GetSmallClassName(Rs("SmallClassID"))
Rs.Close
PPst_ReadNews=ReadNews_Title
End Sub
Sub PPst_Search(FileName,Swidth,sStyle)
Swidth=Rongcuo(Swidth,0,100)
sStyle=Rongcuo(sStyle,1,1)
If Swidth-40<60 then
S_width=60
Else
S_width=Swidth-40
End If
set rs=server.CreateObject("ADODB.RECORDSET")
sql="select * from PPst_SmallClass"
rs.open sql,conn,1,1
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array(" <%=rs("Smallclassname")%>","<%=rs("ForBigClassID")%>","<%=rs("SmallClassid")%>");
<%
count = count + 1
rs.movenext
loop
Set rs=Nothing
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.form_s.SmallClassID.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.form_s.SmallClassID.options[document.form_s.SmallClassID.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<table border="0" cellspacing="0" cellpadding="0"><form name="form_s" method="post">
<tr><td height="23" align="left" valign="middle"><select name="BigClassID" onChange="changelocation(document.form_s.BigClassID.options[document.form_s.BigClassID.selectedIndex].value)" size="1" style="width:<%=Swidth%>px">
<option value="0">所有大类</option>
<%Set rs=Server.CreateObject("adodb.recordSet")
rs.open "select * from [PPst_BigClass]",conn,1,1
do while not rs.eof
response.Write "<option value="&rs("BigClassid")&"> "&rs("BigClassName")&"</option>"
rs.movenext
loop
rs.close
set rs = nothing
%>
</select><%
If sStyle=1 then
%></td></tr>
<tr><td height="23" align="left" valign="middle"><select name="SmallClassID" style="width:<%=Swidth%>px"><option value="0">所有小类</option></select></td></tr>
<tr><td height="23" align="left" valign="middle"><input type="text" name="Key" style="width:<%=Swidth%>px" value="关键字" onclick="if(this.value=='关键字') this.value=''"></td></tr>
<tr><td height="23" align="left" valign="middle"><select name="SearchType" style="width:<%=S_width%>px"><option value="t">从标题中</option><option value="c">从内容中</option></select><input type="button" name="buttton" value="搜索" onClick="window.location.href='<%=FileName%>?B='+document.form_s.BigClassID.options[document.form_s.BigClassID.selectedIndex].value+'&S='+document.form_s.SmallClassID.options[document.form_s.SmallClassID.selectedIndex].value+'&K='+document.form_s.SearchType.options[document.form_s.SearchType.selectedIndex].value+document.form_s.Key.value">
<%ElseIf Sstyle=0 then%>
<select name="SmallClassID" style="width:<%=Swidth%>px"><option value="0">所有小类</option></select><input type="text" name="Key" style="width:<%=Swidth%>px" value="关键字" onclick="if(this.value=='关键字') this.value=''"><select name="SearchType" style="width:<%=S_width%>px"><option value="t">从标题中</option><option value="c">从内容中</option></select><input type="button" name="buttton" value="搜索" onClick="window.location.href='<%=FileName%>?B='+document.form_s.BigClassID.options[document.form_s.BigClassID.selectedIndex].value+'&S='+document.form_s.SmallClassID.options[document.form_s.SmallClassID.selectedIndex].value+'&K='+document.form_s.SearchType.options[document.form_s.SearchType.selectedIndex].value+document.form_s.Key.value">
<%End If%>
</td></tr>
</form></table>
<%End Sub
Sub PPst_Class(BigClassID,SmallClassID,OpenType,ClassFile,ClassType,BigClassNum,SmallClassNum,ClassHeight,ClassIcon)
BigClassID=RongCuo(BigClassID,0,0) '0:调所有大类,其他数字表示只调该大类
SmallClassID=RongCuo(SmallClassID,1,0) '0表示不调出小类,1为调用该大类下小类
OpenType=RongCuo(OpenType,1,0) '新窗口打开
ClassType=RongCuo(ClassType,1,1) '竖排
ClassHeight=RongCuo(ClassHeight,0,12) '行高
BigClassNum=RongCuo(BigClassNum,0,0)
SmallClassNum=RongCuo(SmallClassNum,0,0) '横排调用的时候,一行几列,或竖排的时候一个大类最多显示几个小类
If BigClassNum<>0 then BigSqlTop=" Top "&BigClassNum
If SmallClassNum<>0 then SmallSqlTop=" Top "&SmallClassNum
If OpenType=1 then ClassOpenType="target=_blank"
response.Write "<span style=line-height:"&ClassHeight&"px>"
If ClassType=1 then '一开始
If BigClassID<>0 and SmallClassID=1 Then '二开始
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select"&SmallSqlTop&" * From PPst_SmallClass Where ForBigClassID="&BigClassID
rs.open sql,conn,1,1
If Rs.RecordCount<>0 then '五开始
For w=1 to Rs.RecordCount
If ClassIcon="" then
If w=1 Then
Response.Write "┌"
ElseIf w=Rs.RecordCount then
Response.Write "└"
Else
Response.Write "├"
End If
End If
Response.Write ClassIcon&"<A Href="&ClassFile&"?BigClassID="&BigClassID&"&SmallClassID="&Rs("SmallClassID")&">"&Rs("SmallClassName")&"</a><br>"
Rs.MoveNext
Next
End If '五结束
Rs.Close
ElseIf BigClassID=0 then '****** 二 其他 *******
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select"&BigSqlTop&" * From PPst_BigClass"
rs.open sql,conn,1,1
If Rs.RecordCount<>0 then '三开始
For D=1 to Rs.RecordCount
If D=1 then
Response.Write "┌"
ElseIf D=Rs.RecordCount Then
Response.Write "└"
Else
Response.Write "├"
End If
Response.Write ClassIcon&"<a Href="&ClassFile&"?BigClassID="&Rs("BigClassID")&" "&ClassOpenType&">"&Rs("BigClassName")&"</a><br>"
If SmallClassID=1 then '四开始
Set Rss=Server.CreateObject("Adodb.RecordSet")
Sqls="Select"&SmallSqlTop&" * From PPst_SmallClass Where ForBigClassID="&Rs("BigClassID")
rss.open sqls,conn,1,1
If Rss.RecordCount<>0 then '五开始
For X=1 to Rss.RecordCount
If ClassIcon="" then
If D=Rs.RecordCount Then
If X=Rss.RecordCount then
Response.Write " └"
Else
Response.Write " ├"
End If
Else
If X=Rss.RecordCount then
Response.Write "│└"
Else
Response.Write "│├"
End If
End If
End If
Response.Write ClassIcon&"<A Href="&ClassFile&"?BigClassID="&Rs("BigClassID")&"&SmallClassID="&Rss("SmallClassID")&">"&Rss("SmallClassName")&"</a><br>"
Rss.MoveNext
Next
End If '五结束
Rss.Close
End If '四结束
Rs.MoveNext
Next
End If '三结束
Rs.Close
End If '二结束
Else '一其他
If (BigClassID=0 And SmallClassID=0) then '调所有大类
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select"&BigSqlTop&" * From PPst_BigClass"
rs.open sql,conn,1,1
For y=1 to rs.recordcount
Response.Write ClassIcon&"<a Href="&ClassFile&"?BigClassID="&Rs("BigClassID")&" "&ClassOpenType&">"&Rs("BigClassName")&"</a>"
Rs.MoveNext
Next
rs.close
ElseIf (BigClassID<>0 And SmallClassID=1) then '调某大类的所有小类
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From PPst_BigClass Where BigClassID="&BigClassID
rs.open sql,conn,1,1
Big_Class_Name=Rs("BigClassName")
rs.close
Response.Write "<B><a Href="&ClassFile&"?BigClassID="&BigClassID&" "&ClassOpenType&">"&Big_Class_Name&"</a></B>"
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select"&SmallSqlTop&" * From PPst_SmallClass Where ForBigClassID="&BigClassID
rs.open sql,conn,1,1
For c=1 to rs.recordcount
Response.Write ClassIcon&"<a Href="&ClassFile&"?BigClassID="&BigClassID&"&SmallClassID="&Rs("SmallClassID")&" "&ClassOpenType&">"&Rs("SmallClassName")&"</a>"
Rs.MoveNext
Next
ElseIf BigClassID=0 And SmallClassID=1 then '大类小类一起调
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select"&BigSqlTop&" * From PPst_BigClass"
rs.open sql,conn,1,1
For p=1 to rs.recordcount
Response.Write ClassIcon&"<B><a Href="&ClassFile&"?BigClassID="&Rs("BigClassID")&" "&ClassOpenType&">"&Rs("BigClassName")&"</a></B><br>"
Set Rss=Server.CreateObject("Adodb.RecordSet")
Sqls="Select"&SmallSqlTop&" * From PPst_SmallClass Where ForBigClassID="&Rs("BigClassID")
rss.open sqls,conn,1,1
Response.Write " "
If Rss.RecordCount<>0 then '五开始
For l=1 to Rss.RecordCount
Response.Write ClassIcon&"<A Href="&ClassFile&"?BigClassID="&Rs("BigClassID")&"&SmallClassID="&Rss("SmallClassID")&">"&Rss("SmallClassName")&"</a>"
Rss.MoveNext
Next
Response.Write "<Br>"
End If
'五结束
Rss.Close
Rs.MoveNext
Next
rs.close
End If
End if '一结束
Response.Write "</span>"
End Sub
'============================================================================================
'以下为可执行代码，非过程调用
If Request("Action")="Pinglun" then
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From PPst_Pinglun"
rs.open sql,conn,1,3
Rs.AddNew
rs("NewsID")=Request("ID")
rs("Title")=Request("Title")
rs("Author")=Request("Author")
rs("AddTime")=Now()
UserIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If UserIP = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
rs("UserIP")=UserIP
rs("Content")=Request("Content")
rs.update
Rs.Close
Response.Redirect ThisFilename&"?ID="&Request("ID")&"&Msg=发表评论成功！"
End If
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -