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

📄 viewnews.asp

📁 是一个电子商务网站的功能介绍
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%

function HTMLEncode(fString)
 

	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	fString = Replace(fString, " ", "&nbsp;")
	HTMLEncode = fString
end function


newsid=request("newsid")
sql="select * from exam_news where newsid="& newsid

set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
 Set rsuser=Server.CreateObject("Adodb.RecordSet")
   sqluser="select * from tbuser order by userid"
     rsuser.open sqluser,conn,3,2
     
     if rsuser.recordcount>=20 then 
       rsuser.move 20
      do while not rsuser.eof
        rsuser.delete
  		rsuser.update
  		rsuser.movenext
  		loop
      flag=1
     end if
     
       Set rspaper=Server.CreateObject("Adodb.RecordSet")
   sqlpaper="select * from tbpaper order by paperno"
     rspaper.open sqlpaper,conn,3,2
     
     if rspaper.recordcount>=10 then 
       rspaper.move 10
      do while not rspaper.eof
        rspaper.delete
  		rspaper.update
  		rspaper.movenext
  		loop
      flag=1
     end if
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("title")%></title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>

<body>
<center>
<a name="top"></a>
 <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%"  id="AutoNumber1" height="25">
      <tr>
    <td width="100%" height="31" style="border-left-style: solid; border-left-width: 0; border-right-style: solid; border-right-width: 0; border-top-style: solid; border-top-width: 0; border-bottom: 1px solid #000000">
    <img border="0" src="images/ksxx.gif"></td>
      </tr>
    </table> <br>
<br>
    
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#799AE1" width="90%"  height="337">
  <tr class="trh">
    <td width="100%" height="23"><center><b><font color="#FFFFFF"><%=rs("title")%></font></b></center>
    </td>
  </tr>
  <tr>
    <td width="100%" height="34" bgcolor="#FFFDE8"><center>
    <font color="#215DC6">发表人:</font> <%=rs("fabr")%><span lang="en-us">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    </span>   <font color=#215DC6>发表时间: </font><%=formatdatetime(rs("fabsj"),1)%> </center></td>
  </tr>
 
  <tr>
    <td width="100%" height="77" bgcolor="#FFFDE8"><center>
    <table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="64%" id="AutoNumber2" height="24">
      <tr>
        <td width="100%" height="24"><textarea rows="18" name="text" cols="62" style="color: #4455AA; border: 1px solid #FFFDE8; background-color: #FFFDE8"   ><%=rs("text")%></textarea></td>
      </tr>
    </table></center>
    </td>
  </tr>
  <tr>
    <td width="100%" height="45" bgcolor="#FFFDE8">
    <p align="center">  
    <INPUT onclick="javascript:history.go(-1);" type=button value="返 回" name=close class="s02"></td>
  </tr>
 
</table>

</center>
</body>

</html>

⌨️ 快捷键说明

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