📄 view.asp

📁 这是去年开发的中移鼎讯手机进销存系统大家

💻 ASP

字号:

<!--#include file="../inc/function.asp"-->
<%
ConnectionDatabase
dim rsnews,sqlnews,username00
  set rsnews=server.createobject("adodb.recordset")
  sqlnews="select * from T_News where newsid="&request.querystring("id")&""  
  rsnews.open sqlnews,conn,3,3
   dim dian8,rspp,sqlpp
  set rspp=server.createobject("adodb.recordset")
  sqlpp="select UserUnit from T_user where UserName='"&rsnews("username")&"'"
  rspp.open sqlpp,conn,3,3
  dian8=rspp("UserUnit")
  rspp.close
  set rspp=nothing
  %>
<link href="../css/css.css" rel="stylesheet" type="text/css">
<body bgcolor="F5FFF5" leftmargin="0" topmargin="2">
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="F5FFF5" bordercolorlight="#cccccc">
  <tr> 
    <td height="38"> <div align="center"><strong><%=rsnews("title")%></strong></div></td>
  </tr><title><%=rsnews("title")%></title>
  <tr> 
    <td><div align="right"><font color=red><%=dian8%></font>发布于<%=rsnews("Intime")%>&nbsp;</div></td>
  </tr>
  <tr>
    <td><%=replace(rsnews("content"),chr(13),"<br>")%></td>
  </tr>
</table>
<%response.write session("username00")
  rsnews.close
  set rsnews=nothing
  conn.close
  set conn=nothing
  %>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -