tzh.asp
来自「一个公司营销系统」· ASP 代码 · 共 58 行
ASP
58 行
<!--#include file="connn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>站内通知</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body bgcolor="#6AC4FF">
<p align="center" style="font-size:14px"><b><font color="#FF0000">站内通知</font></b></p>
<%
dim rs,sql
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from tzh where id=1"
rs.open sql,conn,3,2
%>
<div align="right"></div>
<div align="right"></div>
<div align="center"></div>
<p style="font-size:14px"><%=rs("tzh")%></p>
<%
dim rs2,sql2
set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from tzh where id=2"
rs2.open sql2,conn,3,2
%>
<p style="font-size:14px"><font color="#FF0000"><b><%=rs2("tzh")%></b></font></p>
<%
dim rs3,sql3
set rs3 = Server.CreateObject("ADODB.Recordset")
sql3="select * from tzh where id=3"
rs3.open sql3,conn,3,2
%>
<p style="font-size:14px"><font color="#0000FF"><%=rs3("tzh")%></font></p>
<%
dim rs4,sql4
set rs4 = Server.CreateObject("ADODB.Recordset")
sql4="select * from tzh where id=4"
rs4.open sql4,conn,3,2
%>
<p style="font-size:14px"><font color="#FFFFFF"><%=rs4("tzh")%></font></p>
<p style="font-size:14px">有什么问题可以联系网站管理员 </p>
<p style="font-size:14px">QQ:4959489
<%
dim rs5,sql5
set rs5 = Server.CreateObject("ADODB.Recordset")
sql5="select * from admin where id=2"
rs5.open sql5,conn,3,2
%>
<%=rs5("QQ")%>(会员提问)</p>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?