news.asp

首页由top.asp index_asp.asp link.asp end.asp构成

<!--#include file="top.asp"-->
<%
Function SafeRequest(ParaName,ParaType)
       Dim ParaValue 
       ParaValue=Request(ParaName) 
       If ParaType=1 then 
              If ParaValue="" or not isNumeric(ParaValue) then 
                     Response.write "参数" & ParaName & "必须为数字型！" 
                     Response.end 
              End if 
       Else 
              ParaValue=replace(ParaValue,"’","’’") 
       End if 
       SafeRequest=ParaValue 
End function

%>
<%
dim id
id=SafeRequest("id",1)
set Rs=GrateRs("select * from news where id="&id,3)
%>
<div align="center">
<p>
	<table border="0" width="760" cellspacing="0" cellpadding="0">
		<tr>
			<td width=760 align=center><font size=3><%=rs("newstitle")%></font></td>
		</tr>
	</table>
<p>
</div>
<div align="center">
	<table border="0" width="680" cellspacing="0" cellpadding="0">
		<tr>
			<td width=680><p><%=rs("news")%></p></td>
		</tr>
	</table>
<p>
</div>
<div align="center">
	<table border="0" width="760" cellspacing="0" cellpadding="0" id="table7">
<iframe border=0 align=center vspace=0 hspace=0 name=searchbar marginwidth=0 marginheight=0 framespacing=0 frameborder=0 scrolling=no width=760 height=36 src="http://template.union.163.com/search/tpl2.jsp?ID=ydwzjw521&NO=30533&sessionID=2280wz7291599000dw19FD3E&codeDate=2006n4y14h&logo=1&select=1&SearchHeight=36&SearchWidth=760&boxColor=AFD3ED&txtColor=000000&borderColor=333333&qword=美女"></iframe>
	</table>
</div>
<!--#include file="link.asp"-->
<!--#include file="end.asp"-->