⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 go.asp

📁 文学网采用飞翔网的内核和界面作了较大程度的修改和美化 主要功能有: 1、界面美化 2、增加网文周榜和推荐作品 3、增加每个栏目图片和栏目的导读 4、增加推荐作品和会员文集 5、增加会员个人管理中心 6
💻 ASP
字号:
<!--#include file="articleconn.asp"--> 
<!--#include file="const.asp"-->

<html>
<%                        
Set rst= Server.CreateObject("ADODB.Recordset")                        
	rst.open "select * from type",conn,1
%>
<%   dim sql
   dim rs
   dim listname
   dim typename
   typename=request("typename")
   set rs=server.createobject("adodb.recordset")
   sql="select * from article where newsid="&request("id")
   rs.open sql,conn,1,1
   sss=rs("typename")
   lx=rs("typeid")
    MaxPerPage=rs("duo")
   dim totalPut   
   dim CurrentPage
   dim TotalPages
   dim i,j

   dim ty
   typeid=request("typeid")
     if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
      dim rstype
   dim typesql
 
   if not isEmpty(request("type")) then
	 
   end if
 set rstype=server.createobject("adodb.recordset")
  typesql="select * from type where typeid="&lx&""
 rstype.open typesql,conn,1,1
 bj=rstype("admin")
 if not rstype.eof then
	 
 end if
rstype.close
     set rst=server.CreateObject("ADODB.RecordSet") 
%>
<head>
<title><%=rs("title")%>---<%=fly_user%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style TYPE="text/css">
<!--
A:link{text-decoration:none}
A:visited{text-decoration:none}
A:hover {color: #ff00ff;text-decoration:underline}
 -->
</style>

<style type="text/css">
<!--
body {font-size:10pt}
td {font-size:10pt}
-->
</style>
</head>
<body bgcolor="#666666" text="#000000" leftmargin="0" topmargin="0" background="images/home_00.gif">
<!--#include file="main.htm"-->
<table width="762" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000">
  <tr>
    <td class="p1" align="center" height="8"> 
      <table width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="#C0C0C0">
        <tr> 
          <td  class="f" height="20"  >&nbsp;您的位置&gt;&gt;<a href="default.asp"><%=fly_user%></a>&gt;&gt;<A 
      href="flymore.asp?ttt=<%=rs("typeid")%>&sss=<%=rs("typename")%>"><%=rs("typename")%></a>&gt;&gt;<%=rs("title")%> 

          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="762" border="0" cellspacing="1" cellpadding="0" bgcolor="#000000" align="center">
  <tr> 
    <td bgcolor="#FFFFFF" class="p" height="80" background="images/image.jpg"> 
      <table width="760" border="0" align="center">
        <tr> 
          <td align="center"> 
            <table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr> 
                <td colspan="2">&nbsp;</td>
              </tr>
              <tr align="center"> 
                <td colspan="2" class="a"><b><font color="#000000"><%=rs("title")%></font></b></td>
              </tr>
              <tr> 
                <td>&nbsp;</td>
                <td width="313" class="f" align="center">文 / <a        
href=userinfo.asp?username=<%=rs("zznews")%> target=_blank><%=rs("zznews")%></a></td>
              </tr>
            </table>
            <table width="560" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr> 
                <td class="p" valign="top"><%=rs("content")%></td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF" class="p" valign="top" height="24" align="center"> 
      <table width="700" border="0">
        <tr> 
          <td  class="f" colspan="5" align="right" ><%=rs("dateandtime")%> 发表        
            | 责任编辑:<%=bj%></td>       
        </tr>
        <TR> 
          <TD background=images/line.gif
                height=1  colspan="5" ></TD>
        </TR>
        <tr   class="f" > 
          <TD width="42%">本文共有评论 <FONT color=#cc0000><%=rs("reviewcount")%></FONT> 
            篇︱已被阅读过 <FONT 
            color=#cc0000><%=rs("hits")%></FONT> 次 </TD>
          <TD width="20%">&nbsp;</TD>
          <TD width="15%"><A 
            href="review.asp?ID=<%=rs("newsid")%>"><FONT 
            color=#cc0000>查看本文的评论</FONT></A></TD>
          <TD width="3%"> 
            <DIV align=right></DIV>
          </TD>
          <TD width="15%"><FONT 
            color=#cc0000>向朋友推荐本文</FONT></TD>
        </tr>
        <TR> 
          <TD background=images/line.gif
                height=1  colspan="5" ></TD>
        </TR>
      </table>
      <TABLE cellSpacing=0 cellPadding=0 width="700"  class="f" border=0 bgcolor="#C0C0C0">
        <TBODY> 
        <form action="savereview.asp?id=<%=request("id")%>" method="POST" name="form">
          <TR> 
            <TD width="5%">&nbsp;</TD>
            <TD><br>
              网上大名:        
              <INPUT   type="text"  name="reviewname"  style="font-family: 宋体; font-size: 9pt; background-color: #FFFFFF; color: #000000; border: 1 solid #000000">
              <BR>
              <BR>
              评论主题:        
              <INPUT type="text" name="title" style="font-family: 宋体; font-size: 9pt; background-color: #FFFFFF; color: #000000; border: 1 solid #000000" value="评论

:<%=rs("title")%>">
              <BR>
              <BR>
              您的评论:        
              <TEXTAREA class=font name="review" rows=8 cols=60></TEXTAREA>
            </TD>
          </TR>
          <TR> 
            <TD width="5%">&nbsp;</TD>
            <TD> 
              <DIV align=center> 
                <INPUT  type=submit value=.::发表评论::. name=Submit  style="font-family: 宋体; font-size: 9pt; color: #000000;  border: 1 solid #000000">
              </DIV>
            </TD>
          </TR>
          <tr> 
            <td height="10"></td>
          </tr>
        </FORM>
        </TBODY> 
      </TABLE>
      <br>
    </td>
  </tr>
</table>

<!--#include file="mai.htm"-->
</body>
</html>
<%rs.close
set rs=nothing
conn.close
set conn=nothing%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -