?? guide_news.asp
字號:
<!--#include file="head.asp" -->
<%sub navigation()%>
>> 信息瀏覽
<%end sub%>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="780" height="5" bgcolor="#EFEFE7">
<tr>
<td></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="780" height="10" bgcolor="#ffffff">
<tr>
<td width="200" valign="top" background="images/leftbg.jpg">
</td>
<td valign="top" width="580">
<!--主要內容開始-->
<%
dim sql
dim rs
dim rstype
dim typesql
dim title
ID=CheckStr(Request.QueryString("ID"))
If isInt(ID)=False OR Not IsNumeric(ID) Then
Response.Redirect "index.asp"
Response.End()
End If
set rs=server.createobject("adodb.recordset")
sql="update zf11_g_news set hits=hits+1 where ID="&ID&""
rs.open sql,conn,1,3
%>
<%
sqla="select * from zf11_g_news where ID="&ID&""
Set Rsa=conn.execute (sqla)
if rsa.eof and rsa.bof then
response.Redirect("index.asp")
end if
ClassID=Rsa("Sort2")
SortID=Rsa("Sort1")
if ClassID<>0 then
sqlc="select * from zf11_guide where ID="&ClassID&""
Set Rsc=conn.execute (sqlc)
if rsc.eof and rsc.bof then
response.Redirect("index.asp")
end if
Classname=Rsc("names")
B_ID=Rsc("B_ID")
sqls="select * from zf11_guide where ID="&B_ID&""
Set Rss=conn.execute (sqls)
if Rss.eof and Rss.bof then
response.Redirect("index.asp")
end if
SortName=Rss("names")
end if
if ClassID=0 then
sqls="select * from zf11_guide where ID="&SortID&""
Set Rss=conn.execute (sqls)
SortName=Rss("names")
end if
'Info=RsS("Info")
'Title = SortName & " >> " & Classname
%>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="580" height="20" >
<tr>
<TD width="100%" height="20" ><IMG height=45 src="images/tu01.jpg" width=580></TD>
</tr>
</table>
</div>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD vAlign=top align=left width="98%" id="Right_width" style="width:580px">
<%
set rs=server.createobject("adodb.recordset")
ID=request("id")
IF ID = "" OR Not IsNumeric(ID) Then
Response.Redirect("Index.asp")
Response.End
End IF
sqltext="select top 1 * from zf11_g_news where Id="&ID&""
rs.open sqltext,conn,1,1
do while not rs.eof
InfoID=rs("Id")
Discussion=rs("Discussion")
Title=rs("Title")
%>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD> <TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=30 width="100%" valign="bottom">
<div align="center"><b><font size="4"><%=Title%></font></b></div></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top>
<%
if Request.Cookies(zf11_Sys)("Grade")="" then
Grade=0
else
Grade=Request.Cookies(zf11_Sys)("Grade")+1
end if
if Grade>=RS("ReadGrade") then
Call ReadContent()
'Call Discu()
else
Call ReadErro()
end if
%>
</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width="100%" border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=34 align="right">
</TD>
<TD width="41%" align="right">【<a href='News.asp'>返回</a>】 【<a href="javascript:window.scroll(0,-360)">頂部</a>】
【<a href="javascript:self.close()">關閉</a>】</TD>
</TR>
</TBODY>
</TABLE>
<%
rs.movenext
loop
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="8"> </td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table>
<% sub ReadContent()%>
<hr size="1" width="90%">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td style='FILTER: DropShadow(Color=#cccccc, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>
<p align="center">錄入：<font color="#FF0000"><%=rs("author")%></font> <a href="http://<%=zf11_http%>" target=_blank><%=zf11_http%></a>
<%=rs("date")%> 人氣：<font color="#FF0000"><%=rs("hits")%></font>
</td>
</tr>
</table>
</div>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="4">
<tr>
<td width="100%" height="54" style="line-height: <%=zf11_line_H%>">
<%=RS("content")%>
</td>
</tr>
</table>
<% end sub %>
<% sub ReadErro()%>
<br><br><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="32">
<div align="center"><font color="#FF0000">您的瀏覽權限不夠！</font><br><br><br>
這條信息要
<font color=red><%if rs("ReadGrade")=1 then%>
本站注冊用戶
<%end if%>
<%if rs("ReadGrade")=2 then%>
高級會員
<%end if%>
</font>
才能游覽！
</div></td>
</tr>
</table>
<% end sub %>
<!--主要內容結束-->
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
<!--#include file="foot.asp" -->?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -