📄 about.asp

📁 本程序采用ACC数据核心构件！！功能介绍：程序代码重新设计与优化
💻 ASP
字号:
<!--#include file="inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/SqlIn.Asp"-->
<!--#include file="inc/format.asp"-->
<%call head()%>
<body>
<div id="top-bg">
<div id="public-body">
<!--#include file="Top.asp"-->
<div id="page-link">
<center><%
start="网站信息"
call head()
sql="select About,Contacts,advertise,help from Gq_main"
set rs=conn.execute(sql)
Gq=request("Gq")
if Gq="" then
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width='984' bgColor=#990000 border=0>" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR>" & vbCrLf
Response.Write "<TD width=11></TD>" & vbCrLf
Response.Write "<TD align='center'><br>" & vbCrLf
Response.Write "<font style='font-size:12px' class='book'><b>客服联系方式</b></font><br>" & vbCrLf
Response.Write "<table width='98%' align='center' cellspacing='0' cellpadding='0' style='word-break:break-all;table-layout:fixed;text-align:left'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td valign='top'><div style='LINE-HEIGHT: 180%'>"&rs("About")&"</div></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table></TD>" & vbCrLf
Response.Write "<TD width=14 height='5'></TD>" & vbCrLf
Response.Write "</TR>" & vbCrLf
Response.Write "</TBODY>" & vbCrLf
Response.Write "</TABLE>" & vbCrLf
elseif Gq="Contacts" then
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width='984' bgColor=#990000 border=0>" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR>" & vbCrLf
Response.Write "<TD width=11></TD>" & vbCrLf
Response.Write "<TD align='center'><br>" & vbCrLf
Response.Write "<font style='font-size:12px' class='book'><b>帮助使用说明</b></font><br>" & vbCrLf
Response.Write "<table width='98%' align='center' cellspacing='0' cellpadding='0' style='word-break:break-all;table-layout:fixed;text-align:left'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td valign='top'><div style='LINE-HEIGHT: 180%'>"&rs("Contacts")&"</div></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table></TD>" & vbCrLf
Response.Write "<TD width=14 height='5'></TD>" & vbCrLf
Response.Write "</TR>" & vbCrLf
Response.Write "</TBODY>" & vbCrLf
Response.Write "</TABLE>" & vbCrLf
elseif Gq="advertise" then
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width='984' bgColor=#990000 border=0>" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR>" & vbCrLf
Response.Write "<TD width=11></TD>" & vbCrLf
Response.Write "<TD align='center'><br>" & vbCrLf
Response.Write "<font style='font-size:12px' class='book'><b>广告投放价格</b></font><br>" & vbCrLf
Response.Write "<table width='98%' align='center' cellspacing='0' cellpadding='0' style='word-break:break-all;table-layout:fixed;text-align:left'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td valign='top'><div style='LINE-HEIGHT: 180%'>"&rs("advertise")&"</div></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table></TD>" & vbCrLf
Response.Write "<TD width=14 height='5'></TD>" & vbCrLf
Response.Write "</TR>" & vbCrLf
Response.Write "</TBODY>" & vbCrLf
Response.Write "</TABLE>" & vbCrLf
elseif Gq="help" then
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width='984' bgColor=#990000 border=0>" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR>" & vbCrLf
Response.Write "<TD width=11></TD>" & vbCrLf
Response.Write "<TD align='center'><br>" & vbCrLf
Response.Write "<font style='font-size:12px' class='book'><b>汇款联系方式</b></font><br>" & vbCrLf
Response.Write "<table width='98%' align='center' cellspacing='0' cellpadding='0' style='word-break:break-all;table-layout:fixed;text-align:left'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td valign='top'><div style='LINE-HEIGHT: 180%'>"&rs("help")&"</div></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table></TD>" & vbCrLf
Response.Write "<TD width=14 height='5'></TD>" & vbCrLf
Response.Write "</TR>" & vbCrLf
Response.Write "</TBODY>" & vbCrLf
Response.Write "</TABLE>" & vbCrLf
rs.close
set rs=nothing
end if
call footer()
call CloseConn()%></center>
⌨️ 快捷键说明

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