 |
<%=WebMenu(0,0,2)%> |
| |
|
|
<%=WebLocation()%> |
 |
|
 |
<%
ID = request.QueryString("ID")
If ID = "" Or Not IsNumeric(ID) Then
response.Write "暫無相關信息"
ElseIf conn.Execute("select * from Qianbo_News Where ViewFlag and ID="&ID).EOF Then
response.Write "暫無相關信息"
Else
Dim rs, sql
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from Qianbo_News where ViewFlag and ID="&ID
rs.Open sql, conn, 1, 3
Response.Write ""&rs("NewsName")&""&vbCrLf
End If
If Request("page") = "" Then
pageNum = 0
Else
pageNum = Request("page")
End If
%> |
 |
 |
|
 |
|
<%
If ViewNoRight(rs("GroupID"), rs("Exclusive")) Then
Response.Write " "&vbCrLf
Response.Write " | 新聞來源："&rs("Source")&" 瀏覽次數(shù)： | "&vbCrLf
Response.Write " "&vbCrLf
Response.Write " "&vbCrLf
Response.Write " | | "&vbCrLf
Response.Write " "&vbCrLf
Response.Write " "&vbCrLf
Response.Write " | "&vbCrLf
%>
<%
ContentStr = Split(rs("Content"), "{＄html_Paging＄}")
For i = pageNum To pageNum
%>
<%=ProcessSitelink(ContentStr(i)) %>
<% Next %>
<%
Response.Write " | "&vbCrLf
Response.Write " "&vbCrLf
Response.Write " "&vbCrLf
Response.Write " | "&vbCrLf
%>
本文共分<%For p = 0 to ubound(ContentStr)%> &page=<%=p%>"><%=p+1%> <%Next%>頁
<%
Response.Write " | "&vbCrLf
Response.Write " "&vbCrLf
Else
Response.Write " "&vbCrLf
Response.Write " ![]() | "&vbCrLf
Response.Write " "&vbCrLf
End If
rs.update
rs.Close
Set rs = Nothing
%>
上一篇：<%=prev%>
下一篇：<%=qnext%> |
|
