📄 newsshow.asp
字号:
<%
'乘风电影程序
'制作：乘 风
'QQ：178575
'E-Mail：yliangcf@163.com
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cffilm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示，包括如何实际整合Helix,Serv-u完全的实现在线播
'放和下载防盗链等
%>
<!--#Include File="Conn.asp"-->
<!--#Include File="CF_MyFunction.asp"-->
<html>
<head>
<title><%=Rsset("Title")%></title>
<meta name="description" content="<%=Rsset("Title")%>">
<meta name="keywords" content="<%=Rsset("Title")%>">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="CF_Style.asp"-->
</head>
<body>
<br>
<%
ID=Goback(ChkStr(Request("ID"),2),"请输入ID号")
Sql="Select * From CFFilm_SysInfo Where ID="&ID
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
<table width="98%" border="0" align="center">
<tr>
<td><p align="center"><b><%=Rs("Title")%></b></p></td>
</tr>
<tr>
<td><%=Replace(Rs("Content"),chr(13)&chr(10),"<br>")%></td>
</tr>
<tr>
<td><div align="right">发布时间：<%=Rs("AddDate")%></div></td>
</tr>
<tr>
<td>
<div align=center><a onmouseover='this.style.cursor="hand"' onclick="window.close()"><u>关闭本页</u></a></div></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -