📄 show.asp
字号:
<!--#include file = "../Include/DBClass.inc.asp"-->
<!--#include file = "WebEditor/Include/DeCode.asp"-->
<%
' =============================================================
' Made By Xiasp & 21世纪人才周刊 http://www.sxzx.net/ QQ群：8617001
' =============================================================
%>
<%
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" type="text/JavaScript" src="/scripts/showHL.js"></script>
<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>
<link href="../style/main.css" rel="stylesheet" type="text/css">
</head>
<body>
<div id="Layer1" style="position:absolute; left:322px; top:76px; width:207px; height:184px; z-index:20; background-color: #F7F7F7; layer-background-color: #F7F7F7; border: 1px none #000000; visibility: hidden;">
<table width="100%" border="0" cellspacing="0" cellpadding="8">
<tr>
<td align="left" class="td_fgs"><a href="/index1.asp">长春上源房地产开发有限公司</a></td>
</tr>
<tr>
<td align="left" class="td_fgs"><a href="/index2.asp">吉林省天源建筑设计有限公司</a></td>
</tr>
<tr>
<td align="left" class="td_fgs"><a href="/index3.asp">吉林省天源建设监理有限公司</a></td>
</tr>
<tr>
<td align="left" class="td_fgs"><a href="/index4.asp">四川南充通达建筑公司</a></td>
</tr>
<tr>
<td align="left" class="td_fgs"><a href="/index5.asp">吉林省天源建筑装饰公司</a></td>
</tr>
<tr>
<td align="left" class="td_fgs"><a href="/index6.asp">兴业苗木公司</a></td>
</tr>
<tr>
<td align="left" class="td_fgs"><a href="/index7.asp">天庭物业公司</a></td>
</tr>
<tr>
<td height="14" align="left" class="td_fgs"><a href="/index8.asp">长春市鑫源塑钢门窗有限责任公司</a></td>
</tr>
<tr>
<td height="14" align="left" class="td_fgs"><a href="/index9.asp">长春市天源招标有限责任公司</a></td>
</tr>
</table>
</div>
<table width="792" height="1078" border="0" cellpadding="0" cellspacing="0" class="main_table">
<tr>
<td width="6" height="1078" class="td_l"></td>
<td width="780" valign="top"><table width="780" border="0" cellpadding="0" cellspacing="0" class="top_table">
<tr>
<td height="48" align="left"><img src="/images/logo.gif" width="249" height="28"></td>
</tr>
<tr>
<td height="37"><table width="760" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="17"><img src="/images/ico_index.gif" width="17" height="19"></td>
<td width="45" align="center" class="top_table1"><a href="/index.asp" onMouseMove="MM_showHideLayers('Layer1','','hide')">首页</a></td>
<td width="7" align="center" class="top_td"></td>
<td width="83" align="center" class="top_table1"><a href="/jtgk.asp?id=165" onMouseMove="MM_showHideLayers('Layer1','','hide')">集团概况</a></td>
<td width="7" align="center" class="top_td"></td>
<td width="83" align="center" class="top_table1"><a href="/jtxw.asp?cataid=A00150001" onMouseMove="MM_showHideLayers('Layer1','','hide')">集团新闻</a></td>
<td width="14" align="center" class="top_td"></td>
<td width="85" align="center" class="top_table1"><a href="#" onMouseMove="MM_showHideLayers('Layer1','','show')">集团分公司</a></td>
<td width="7" align="center" class="top_td"></td>
<td width="81" align="center" class="top_table1"><a href="/zxns.asp?keyword=力源集团" onMouseMove="MM_showHideLayers('Layer1','','hide')">招贤纳士</a></td>
<td width="7" align="center" class="top_td"></td>
<td width="81" align="center" class="top_table1"><a href="/bbs" target="_blank" onMouseMove="MM_showHideLayers('Layer1','','hide')">集团论坛</a></td>
<td width="7" align="center" class="top_td"></td>
<td width="81" align="center" class="top_table1"><a href="/gb.asp" onMouseMove="MM_showHideLayers('Layer1','','hide')">在线留言</a></td>
<td width="7" align="center" class="top_td"></td>
<td width="81" align="center" class="top_table1"><a href="/jtry.asp?cataid=A00170001" onMouseMove="MM_showHideLayers('Layer1','','hide')">集团荣誉</a></td>
<td width="7" align="center" class="top_td"></td>
<td width="71" align="center" class="top_table1"><a href="/jtlxwo.asp?id=1" onMouseMove="MM_showHideLayers('Layer1','','hide')">联系我们</a></td>
</tr>
</table></td>
</tr>
</table>
<table width="780" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="211"><img src="/images/banner.gif" width="779" height="210"></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<table width="780" height="698" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="178" height="698" align="center" valign="top"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="/dszzc.asp?id=174"><img src="/images/button_dsz.jpg" width="164" height="70" border="0"></a></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><a href="/jtyj.asp?id=165"><img src="/images/button_qy.jpg" width="164" height="70" border="0"></a></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<table width="164" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="131" align="left"><img src="/images/title_link.gif" width="98" height="19"></td>
</tr>
<tr>
<td align="center"><iframe scrolling="no" frameborder="no" width="164" height="395" src="/js/link.asp"></iframe></td>
</tr>
</table>
<table width="100" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td><img src="/images/service.gif" width="164" height="51"></td>
</tr>
</table></td>
<td width="7" class="line_td"></td>
<td 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%">
<div align="center"><b><font size="4"><%=sTitle%></font></b>
<hr size="1" color="#0a778b" width="100%">
发布时间： <%=sAddTime%> 被阅览数： <%=sHits%> 次 来源：
<%If sFrom <> "" then
response.write "<font color=#003399>"& sFrom &"</font>"
Else
response.write "<font color=#003399>"& Homepage_title &"</font>"
End If%>
</div></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 = "../bottom.asp"--></td>
<td width="6" class="td_r"></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -