viewinfo.asp

这是作的一个网站,修改很方便,可以做网站设计.管理登陆：admin.asp 帐号和密码：admin/admin

<!--#include file="Gaobei_head.asp" -->
<%sub navigation()%>
    &gt;&gt; 信息浏览
<%end sub%>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="778" height="20" bgcolor="#EFEFE7">
		<tr>
			<td>
			<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="768" height="20" background="images/gaobei_skin/gaobei_infoview2.gif">
					<tr>
						<td>　</td>
					</tr>
				</table>
			</div>
			</td>
		</tr>
	</table>
</div>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="778" height="5" bgcolor="#EFEFE7">
		<tr>
			<td></td>
		</tr>
	</table>
</div>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="778" height="10" bgcolor="#EFEFE7">
		<tr>
			<td>
			<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="768" height="48" bgcolor="#FFFFFF" style="border: 1px solid #3399FF; ">
					<tr>
						<td valign="top">
<!--主要内容开始-->			
<%
    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 Info set hits=hits+1 where ID="&ID&""
	rs.open sql,conn,1,3 
%> 
<%
sqla="select * from Info 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 Sort 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 Sort 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 Sort where ID="&SortID&""
Set Rss=conn.execute (sqls)
SortName=Rss("names")
end if
'Info=RsS("Info")
'Title = SortName & " >> " & Classname
%>
<TABLE width=100% border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
        <TR> 
          <TD width="100%"> <TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
              <TBODY>
                <TR bgColor=#ffffff> 
                  <TD height=2></TD>
                </TR>
              </TBODY>
            </TABLE>
            
      </TD>
    </TR></TBODY></TABLE>
<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:768px">
<%
    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 Info 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(GaoBei_Sys)("Grade")="" then 
    Grade=0
    else 
    Grade=Request.Cookies(GaoBei_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='javascript:history.back()'>&lt;&lt; 
                      后退</a>&nbsp;&nbsp;<a href="javascript:window.scroll(0,-360)">返回顶部</a>&nbsp;&nbsp;<a href="javascript:window.close()">关闭窗口</a>&nbsp;&nbsp;</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>
</body></html>
<% sub ReadContent()%>
<hr size="1" width="80%">
<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"><a href="http://<%=Gaobei_http%>" target=_blank><%=Gaobei_http%></a>
&nbsp;&nbsp;<%=rs("date")%>
			&nbsp;&nbsp;<font color="#FF0000">
<% if rs("writefrom")="" then%>
<%=Gaobei_Title%>
<% else %>
<%=rs("writefrom")%>
<% end if %>
			</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: <%=Gaobei_line_H%>">
<%=RS("content")%>
</td>
</tr>
</table>
<hr size="1" width="98%">
<table width="98%" border="0" cellspacing="0" cellpadding="0">
 <tr>
<td><div align="right"> 添加：<%=rs("date")%>
&nbsp;&nbsp;录入：<font color="#FF0000"><%=rs("author")%></font>
&nbsp;&nbsp;人气：<font color="#FF0000"><%=rs("hits")%></font> 
</div></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>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="778" height="5" bgcolor="#EFEFE7">
		<tr>
			<td></td>
		</tr>
	</table>
</div>
<!--#include file="Gaobei_Foot.asp" -->