📄 showwebsitefaq.asp

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




<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
id=request.querystring("id")
bigtyp=request.querystring("bigtyp")
smalltyp=request.querystring("smalltyp")
%>
<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"--> 
            </TD>
            <TD align=middle vAlign=top> 
<br>
              <div align="center">
              <table width="96%" border="1" cellpadding="5" bordercolor="#6687BA" style="border-collapse: collapse">
                <tr>
                  
                <td bgcolor="#EAF1FB" class="f1"><a href="websitefaq.asp">常见问题</a> -> <%=bigtyp%> -> <%=smalltyp%></td>
                </tr>
              </table>
              
              </div>
              
              <br>
              <% Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from problem where bigtyp='"&bigtyp&"' and smalltyp='"&smalltyp&"' order by id desc"
rs.open sql,conn,3,3
if rs.eof then
response.write""
else
			  b=0
			  do while not rs.eof 
			  b=b+1
			  %>
			  
              <div align="center">
			  
              <table width="96%" border="0" cellpadding="5" cellspacing="0">
                <tr> 
                  <td bgcolor="#EAF1FB" class="f1"><%=b%>.<%=rs("problemtop")%></td>
                </tr>
                <tr> 
                  <td>&nbsp;&nbsp;&nbsp;&nbsp;<%=rs("problem")%></td>
                </tr>
                <tr>
                  <td height="1" background="images/hx.gif"></td>
                </tr>
              </table> 
			  </div>
			  <br>
              <% rs.movenext
			        loop
					end if
					%>
					
					<table width="96%" border="1" cellpadding="5" style="border-collapse: collapse" bordercolor="#6687BA">
                <tr> 
                  <td bgcolor="#EAF1FB" class="f1">FAQ问题分类：</td>
                </tr>
              </table><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>
			  </TD>
          </TR>
        </TBODY>
      </TABLE>
        </center>
</div>
    </body>
<!--#include file="foot.asp"-->
<% rs.close
set rs=nothing
set conn=nothing
%>
⌨️ 快捷键说明

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