help.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

<!--#include file="top.asp" -->
<title><%=sitename%>--帮助中心</title>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" background="images/cart/buy_top_10.gif">
<tr>
<td height="28" style="padding-left:10px"><a href="default.asp" class="buyCurrent">首页</a>
<span class="buyText2">&gt; </span> <span class="buyText2">帮助中心</span></td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#ffffff">
<tr>
<td width="160" bgcolor="#ffffff" align="center" valign="top">
<table width="98%" border="0" cellspacing="0" cellpadding="3" style="LINE-HEIGHT: 110%">
<!--#include file="include/helpleft.asp" -->
</table>
</td>
<td width="1" bgcolor="#999999"></td>
<td valign="top">       <br>
<table width="96%" align="center" border="0" cellspacing="0" cellpadding="0" style="border-bottom-width:1px;border-color:#FFFFFF; border-bottom-style:solid">
<tr>
<td width="4"><img src="images/shuoming_5.gif" width="4" height="28"></td>
<td width="230" bgcolor="#8C816F" style="padding-left:20px"><span style="font-size:14px;color:#FFFFFF">帮助中心</span></td>
<td width="16"><img src="images/shuoming_6.gif" width="16" height="28"></td>
<td width="320" background="images/shuoming_7.gif">&nbsp; </td>
</tr>
</table>
<%if request("type")="" then
sql="select * from 56770_news where newstype='gg' order by id desc "
elseif request("type")=1 then
        sql="select * from 56770_news where newstype='dg' order by id desc "
elseif request("type")=2 then
        sql="select * from 56770_news where newstype='ps' order by id desc "
elseif request("type")=3 then
        sql="select * from 56770_news where newstype='zf' order by id desc"
elseif request("type")=4 then
        sql="select * from 56770_news where newstype='fubz' order by id desc "
elseif request("type")=5 then
        sql="select * from 56770_news where newstype='khfw' order by id desc "
elseif request("type")=6 then
        sql="select * from 56770_news where newstype='khyh' order by id desc"
elseif request("type")=7 then
        sql="select * from 56770_news where newstype='lx' order by id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 1, 1
do while not rs.eof %>
<table width="96%" border="0" cellspacing="1" bgcolor="#EDEFE1" cellpadding="0" align="center">
<tr>
<td colspan="2" height="25"><img src="images/biaoti.gif"><b><%=rs("subject")%></b>----<%=rs("idate")%></td>
</tr>
<tr>
<td colspan="2" height="1" bgcolor="#333333"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="right" valign="bottom" >
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<%
message = replace(message, chr(32), "&nbsp;")
message = replace(rs("message"), chr(13), "<br>")
%>
<td><%=message%></td>
</tr>

</table>
</td>
</tr>
</table>
<% rs.movenext
loop
%>

</td>
</tr>
</table>
<!--#include file="footer.asp" -->