faq.asp

一个不错的个人商务网站的源码

<!--#include file="db_conn.asp"-->
<!--#include file="comm/comm.asp"-->
<!--#include file="comm/sub.asp"-->
<!--begin TOP-->
<%
'说明 head(a,b,c)
'a为页标题
'b为页描述
'c为页关键字

call head(r(26)&"-常见问题",r(27),r(28))
%>
<!--end TOP-->
<div align="center">
<table border="0" width="760" cellpadding="0" style="border-collapse: collapse">
	<tr>
		<td width="182" valign="top"><!--#include file="left.asp"--></td>
		<td width="15" valign="top">　</td>
		<td width="563" valign="top">
	
		<table border="0" width="563" cellpadding="0" style="border-collapse: collapse">
			<tr>
				<td width="72" class="topmanu_bg" height="20">
				<p align="center">
				<img border="0" src="images/icon_bulletin.gif" width="16" height="16" align="absmiddle">常见问题</td>
				<td width="490" height="13">
				<p align="left">&nbsp;</td>
			</tr>
			<tr>
				<td width="563" colspan="2" class="right_nav" height="3"></td>
			</tr>
		</table>
		<table border="0" width="100%" cellpadding="0" style="border-collapse: collapse">
			<tr>
				<td>　</td>
			</tr>
		</table>
		<table border="0" width="563" cellpadding="4" style="border-collapse: collapse">
			<tr>
			<%
			sql="select id,question from faq"
			set rs=conn.execute (sql)
			if rs.eof then
			response.write "<td>暂时没有任何信息</td></tr>"
			else
			i=1
			do while not rs.eof
			set id=rs("id")
			set question=rs("question")
			response.write "<td width=281>"&i&".<a href=#"&id&">"&question&"</a></td>"
				if i mod 2=0 then
				response.write "</tr>"
				end if
				rs.movenext
				i=i+1
				loop
				rs.close
				set rs=nothing
				end if
				%>
			</table>
		<table border="0" width="100%" cellpadding="0" style="border-collapse: collapse">
			<tr>
				<td>　</td>
			</tr>
		</table>
		<table border="0" width="100%" cellpadding="4" style="border-collapse: collapse">
<%sql="select * from faq"
set rs=conn.execute (sql)
if rs.eof then
else
p=1
			do while not rs.eof
			set id=rs("id")
			set question=rs("question")
			set answer=rs("answer")
response.write "<tr>"
response.write "<td>"&p&".<font color=#008000>问：</font><a name="&id&">"&question&"</a></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td style=""word-break:break-all""><font color=#FF0000>答：</font>"&answer&"</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td><hr noshade color=#D9D9D9 size=1></td>"
response.write "</tr>"
				rs.movenext
				p=p+1
				loop
				rs.close
				set rs=nothing
				end if%>
			</table>
		<table border="0" width="100%" cellpadding="0" style="border-collapse: collapse">
			<tr>
				<td>　</td>
			</tr>
		</table>
		

		</td>
	</tr>
</table>
</div>
<!--begin end-->
<%call boot()%><!--end end-->