📄 textbox.asp

📁 静态新闻系统 88red静态新闻系统1.0经过精心打造正式推出

💻 ASP

字号:

<!--#include file="Session.asp"-->
<!--#include file="Conn.asp"-->
<html>
<head>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css.css" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:13964489818
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
If Request("Action")="New" then
Response.Write"暂时没有"
End If
If Request("Action")="Read" then
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from cp where id="&request("id1")
rs.open sql,conn,1,1
response.write rs("spms")
rs.close
set rs=nothing
End If
If Request("Action")="NewsAdd" then
Response.Write"暂时没有"
End If
If Request("Action")="NewsRead" then
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from news where id="&request("id1")
rs.open sql,conn,1,1
response.write rs("body")
rs.close
set rs=nothing
End If
If Request("Action")="Jieshao" then
Response.Write"暂时没有"
End If
If Request("Action")="JieshaoRead" then
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from news where id="&request("id1")
rs.open sql,conn,1,1
response.write rs("jieshao")
rs.close
set rs=nothing
End If
If Request("Action")="Info" then
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from info where id="&request("id1")
rs.open sql,conn,1,1
response.write  rs("content")
rs.close
set rs=nothing
End If
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -