showhelps.asp

来自「设计考虑校园电子商务模式」· ASP 代码 · 共 46 行

<%
'****************************************************
' 多多校园                      Power by ddtaobao.com
' Email:[e-mail]               OICQ:136465584 
' Web: http://www.ddtaobao.com              作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%><!--#include file="top.asp"-->
<%
'==================================================
'作  用：显示具体的帮助
'参  数：无
'==================================================
With Response
.Write"	<table cellpadding=1 cellspacing=1  class=tableborder1 style='border-collapse:collapse;  width:778' align='center'>" & Vbcrlf
.Write"		<tr >" & Vbcrlf
.Write"			<td width='100%' height='25' colspan='3' class=tablebody1>&nbsp;您现在的位置：<a href='default.asp'>网站首页</a>&gt;&gt;<a href='Helps.asp'>帮助中心</a></td>" & Vbcrlf
.Write"		</tr>" & Vbcrlf
dim id
id=request("id")
if id="" or  not isnumeric(id) then
response.redirect"Helps.asp"
end if
set rs=server.createobject("adodb.recordset")
sql="select * from dd_helps where id="&request("id")
rs.open sql,conn,1,3
if rs.eof then
response.redirect"Helps.asp"
else             
.Write"		<tr >" & Vbcrlf
.Write"			<td width='100%' height='25'  class=tablebody1>" & Vbcrlf
.Write"			<p align='center'><font color="&rs("newscolor")&">" & Vbcrlf&rs("newsname")&"</font></td>" & Vbcrlf
.Write"		</tr>" & Vbcrlf
.Write"		<tr >" & Vbcrlf
.Write"			<td width='100%' height='25' class=tablebody1><p align='right'>发布日期："&rs("newsdate")&"</td>" & Vbcrlf
.Write"		</tr>" & Vbcrlf
.Write"		<tr >" & Vbcrlf
.Write"			<td width='100%' height='25' colspan='3' class=tablebody1>&nbsp;"&rs("content")&" "		
.Write"			　</td>" & Vbcrlf
.Write"		</tr>" & Vbcrlf
.Write"	</table>" & Vbcrlf
end if
rs.close
end with
%><!--#include file="bottom.asp"-->