faqbase.asp

《实例精粹ASP》中部分源代码

<%
'================================================ = 
'过程名：ShowFaqList
'作  用：显示常见问题列表
'参  数：无
'================================================ = 
sub ShowFaqList()
	dim strSQL, rsObj, i
%>

<TABLE cellSpacing = 0 cellPadding = 0 width = "100%" bgColor = #ffffff border = "0" style = "border-collapse: collapse" bordercolor = "#111111" ID = "Table1">
                                <TBODY>
                                <TR>
                                <TD bgColor = #FFFFFF>
<form method = "post" action = "regStep2.asp" name = "form1" ID = "Form1">
  <TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 
                  width = "100%" borderColorLight = #aaaaaa border = 1 ID = "Table2">
  <tr>
                            <TD bgcolor = "<%=conTitleColor%>">
                              <DIV align = center>购物帮助</DIV></TD>
  </tr>
  <tr>
                            <TD bgColor = #ffffff><table width = "100%" border = "0" bordercolordark = #3979c6 bordercolorlight = #FFEEAC cellspacing = "0" cellpadding = "0" align = "center" ID = "Table3">
        <tr> 
          <td bgcolor = "#818181" colspan = "2"></td>
        </tr>
        <%
strSQL = "SELECT top 10 * FROM faq ORDER by HitNum DESC"	
set rsObj = conn.execute (strSQL)
i = 0
do while not (rsObj.eof or err)
i = i+1
%>
        <tr>
          <td bgcolor = "<%=conBackColor%>"> 
            <div align = "left">&nbsp;&nbsp;<%=i%>、<a href = "faqDetail.asp?id=<%=rsObj("id")%>" title = "点击查看具体信息"><%=rsObj("question")%>（点击<font color=red><%=rsObj("HitNum")%></font>次）</a></div>
          </td>
        </tr>
        <%
		rsObj.MoveNext
loop
%>
      </table></TD>
  </tr>
</table>
</form></TD></TR>
</TBODY></TABLE>

<%
end sub

'================================================ = 
'过程名：ShowFaqDetail
'作  用：显示常见问题内容
'参  数：无
'================================================ = 
sub ShowFaqDetail(FaqId)
	dim rsObj,strSQL
	set rsObj = Server.CreateObject("ADODB.RecordSet")
	strSQL = "SELECT * FROM faq WHERE id = " & FaqId
	rsObj.Open strSQL, conn, adOpenKeyset, adLockOptimistic 
	rsObj("HitNum") = rsObj("HitNum") + 1
	rsObj.Update()
%>
      <table border = "0" cellspacing = "0" cellpadding = "4" style = "border-collapse: collapse" bordercolor = "#111111" ID = "Table4">
        <tr> 
          <td height = "19" >问题：<b><%=rsObj("question")%></b></td>
        </tr>
        <tr>
          <td height = 10><font color = red><b>回答：</b></font></td>
        </tr>
        <tr>
          <td height = "100" valign = top ><%=Convert(rsObj("answer"))%></td>
        </tr>
      </table>
      <p align = "center"><a href = "Javascript:window.history.go(-1)">返回</a> <font face = "Wingdings 3">
      `</font> 
      </p>
<%
end sub
%>