📄 websitefaq.asp

📁 直接解压即可都是asp源码超经典的啊
💻 ASP
字号:




<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->

<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">

<body leftmargin="0" topmargin="0">

      <div align="center">
        <center>
      <TABLE border=1 cellPadding=0 cellSpacing=0 width="760" style="border-collapse: collapse" bordercolor="#6687BA">
        <TBODY>
          <TR> 
            <TD vAlign=top width=174> 
            <!--#include file="service_left.asp"--> 
              <BR>
            </TD>
            <TD align=middle vAlign=top> 
              
              
              <br>
              <div align="center">
              <table width="96%" border="1" cellpadding="5" style="border-collapse: collapse" bordercolor="#6687BA">
                <tr>
                  <td bgcolor="#EAF1FB" class="f1">最新FAQ问题列表：</td>
                </tr>
              </table>
              </div>
              <br>
              <TABLE 
            width=90% border=0 align="center" cellPadding=3 cellSpacing=0>
                <TR> 
                  <TD>
				  <% Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 20 * from problem order by id desc"
rs.open sql,conn,3,3
if rs.eof then
response.write""
else
response.write" <table width=100% border=0 cellspacing=8 cellpadding=0>"
response.write"<tr>"
a=0
do while not rs.eof
a=a+1
i=i+1
response.write"<td width=50% bordercolor=><a href=showwebsitefaq.asp?id="& rs("id") &"&bigtyp="& rs("bigtyp") &"&smalltyp="& rs("smalltyp") &" class=f5>"& a &"."& rs("problemtop")&"</a></td>"
if i=2 then
response.write"</tr>"
i=0
end if
rs.movenext
loop
response.write"</table>" 
end if
%>					
					</TD>
                </TR>
              </TABLE>
              <br>
              <div align="center">
              <table width="96%" border="1" cellpadding="5" style="border-collapse: collapse" bordercolor="#6687BA">
                <tr> 
                  <td bgcolor="#EAF1FB" class="f1">FAQ问题分类：</td>
                </tr>
              </table> 
              </div>
              <br>
              <table width="90%" border="0" align="center" cellpadding="8" cellspacing="0">
                <tr>
                  <td bordercolor="#FFFFFF">
                    <% Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 20 * from problemtyp"
rs.open sql,conn,3,3
if rs.eof then
response.write""
else
response.write" <table width=100% border=0 cellspacing=0 cellpadding=0>"
do while not rs.eof
response.write"<tr>"
response.write"<td width=20% height=20  align=center>"& rs("problemtyp")&"</td>"
response.write"<td width=20% height=20  align=center><a href=showwebsitefaq.asp?bigtyp="& rs("problemtyp")&"&smalltyp=基础知识>基础知识</a></td>"
response.write"<td width=20% height=20  align=center><a href=showwebsitefaq.asp?bigtyp="& rs("problemtyp")&"&smalltyp=业务相关>业务相关</a></td>"
response.write"<td width=20% height=20  align=center><a href=showwebsitefaq.asp?bigtyp="& rs("problemtyp")&"&smalltyp=故障解决>技术故障</a></td>"
response.write"<td width=20% height=20  align=center><a href=showwebsitefaq.asp?bigtyp="& rs("problemtyp")&"&smalltyp=其他>其他</a></td>"
response.write"</tr>"
response.write"<tr>"
response.write"<td colspan=6 height=1 background=images/hx.gif></td>"
response.write"</tr>"
rs.movenext
loop
response.write"</table>" 
end if
%>
                     </td>
                </tr>
              </table> 
              <br>
              <br>
            </TD>
          </TR>
        </TBODY>
      </TABLE>
        </center>
</div><!--#include file="foot.asp"-->
      </body>
</html>
<% rs.close
set rs=nothing
set conn=nothing
%>
⌨️ 快捷键说明

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