📄 show.asp
字号:
<!--#include file = "Include/DBClass.inc.asp"-->
<!--#include file = "WebEditor/Include/DeCode.asp"-->
<%
Dim s_RootID
'当然更改为其他跟栏目的时候，只需要适当的更改下面的值，就可以实现不同栏目。
s_RootID = "A"
Sub GetNewsCata()
Dim cRs, cSql, i, TempCataStr
Set cRs = Server.CreateObject( "ADODB.Recordset" )
cSql = "SELECT * FROM NewsCata WHERE C_ID <> 1 ORDER BY C_RootID"
cRs.Open cSql, oConn, 1, 3
Do While Not cRs.EOF
TempCataStr = "<option value='"&Trim(cRs("C_ID"))&"'>"
TempCataStr = TempCataStr&" | |"
For i=1 To Int(Len(Trim(cRs("C_RootID")))/4) - 1
TempCataStr = TempCataStr&" |"
Next
TempCataStr = TempCataStr&"_"&Trim(cRs("C_Title"))&"</option>"
Response.Write TempCataStr
cRs.MoveNext
Loop
cRs.Close
Set cRs = Nothing
End Sub
' 传入参数：新闻ID
Dim sNewsID
sNewsID = GetSafeInt(Trim(Request("id")),0)
' 新闻ID有效性验证，防止有些人恶意的破坏此演示程序
If sNewsID < 1 Then
GoError "请通过页面上的链接进行操作，不要试图进行任何非法操作。"
End If
sSql="UPDATE NewsData SET D_Hits = D_Hits+1 WHERE D_ID="&sNewsID
oConn.Execute sSql
' 从数据库中取初始值
Dim sCataID, sTitle, sContent, sPicture, sOriginalFileName, sSaveFileName, sSavePathFileName, sFrom, sAddTime, sHits
sSql = "SELECT * FROM NewsData WHERE D_ID=" & sNewsID
oRs.Open sSql, oConn, 0, 1
If Not oRs.Eof Then
sCataID = oRs("D_CataID")
sTitle = oRs("D_Title")
sContent = oRs("D_Content")
' sPicture = oRs("D_Picture")
' sOriginalFileName = oRs("D_OriginalFileName")
' sSaveFileName = oRs("D_SaveFileName")
' sSavePathFileName = oRs("D_SavePathFileName")
sFrom = oRs("D_From")
sAddTime = oRs("D_AddTime")
sHits = oRs("D_Hits")
Else
GoError "无效的新闻ID，请点页面上的链接进行操作！"
End If
oRs.Close
Set oRs = Nothing
' 禁用某些标签，如出于安全考虑的Script标签，等
' 要使用此功能需要先包含"Include/DeCode.asp"文件。
' 此例只过滤SCRIPT标签，即意味着内容中的客户端脚本不会生效，您可根据实际的需要加入其它标签。
' 当前支持过滤的标签，可以查看DeCode.asp文件中的说明。
sContent = eWebEditor_DeCode(sContent, "SCRIPT")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>站内新闻</title>
<SCRIPT language=JavaScript src="../js/main.js"></SCRIPT>
<link href="../style/main.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function click() {
if (event.button==2) {
if(document.all.auto.status==true){document.all.auto.status=false;alert("自动滚屏已经停止了！")}
scroller();
}
}
document.onmousedown=click
var position = 0;
function scroller() {
if (document.all.auto.status==true){
position++;
scroll(0,position);
clearTimeout(timer);
var timer = setTimeout("scroller()",50);
timer;
}
else{
clearTimeout(timer);
}
}
function MM_callJS(jsStr) { //v2.0
return eval(jsStr)
}
function doZoom(size){
document.getElementById('zoom').style.fontSize=size+'px'
}
// -->
</SCRIPT>
</head>
<body>
<!--#include file="../inc/top.htm"-->
<table width="778" border="0" cellpadding="0" cellspacing="0" class="table">
<tr>
<td bgcolor="#9ce35a"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="776" height="116">
<param name="movie" value="../images/banner2.swf">
<param name="quality" value="high">
<param name="wmode" value="opaque">
<embed src="../images/banner2.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="776" height="116"></embed>
</object></td>
</tr>
</table>
<table width="778" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="table">
<tr>
<td width="171" height="1206" valign="top" class="td">
<!--导航开始-->
<table width="171" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="23" class="title_bg">21世界人才报电子版</td>
</tr>
<tr>
<td><table><%
Dim mRs, mSql, mRootID, mLen, TempListStr
set mRs = server.CreateObject("Adodb.Recordset")
mSql="SELECT * FROM NewsCata ORDER BY C_RootID"
mRs.Open mSql,oConn,1,1
Do While Not mRs.Eof
mRootID = mRs("C_RootID")
mLen = Len(mRootID)
If mLen = 5 Then '这里是读取所有的二级栏目
TempListStr="<tr valign=center align=middle>"
TempListStr=TempListStr&"<td onMouseOver=mOvr(this,'#ffffff'); onMouseOut=mOut(this,'#f5f5f5'); bgcolor=#f5f5f5 width=171 height=25>"
TempListStr=TempListStr&"<a href='default.asp?cataid="&Trim(mRs("C_RootID"))&"'>"&Trim(mRs("C_Title"))&"</a></td>"
TempListStr=TempListStr&"</tr>"
Response.Write TempListStr
End if
mRs.MoveNext
Loop
mRs.Close
set mRs = Nothing
%></table>
</td>
</tr>
</table></td>
<td width="607" valign="top">
<!--列表开始-->
<table width="96%" border="0" align="center" cellpadding="5" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" class="text1" style="word-break:break-all;">
<tr>
<td width="100%" height="28"><div align="center"><b><font size="4"><%=sTitle%></font></b>
</div></td>
</tr>
<tr>
<td height="1" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td height="26">发布时间： <%=sAddTime%> 被阅览数： <%=sHits%> 次 来源：
<%If sFrom <> "" then
response.write "<font color=#003399>"& sFrom &"</font>"
Else
response.write "<font color=#003399>"& Homepage_title &"</font>"
End If%> </td>
</tr>
<tr>
<td><div align="right">文字 〖 <a href="javascript:doZoom(16)" class=tt1>大</a> <a href="javascript:doZoom(14)" class=tt1>中</a> <a href="javascript:doZoom(12)" class=tt1>小</a> 〗
<input type="checkbox" name="auto" value="on" onClick="MM_callJS('scroller() ; ')">
自动滚屏（右键暂停） </div></td>
</tr>
<tr>
<td width="100%" height="60" align="left"><p><font id="zoom" class="text1"><%=sContent%></font></p></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="../inc/bottom.htm"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -