paper10.asp

采用ASP。NET做的网上游戏交易平台

<%
'-------------------------------
function showpaper(idstr,namestr,urlstr,sizestr,dirstr)
dim tmphtml
tmphtml=""
tmphtml=tmphtml&"<table border='0' width='130' cellspacing='1' cellpadding='1' bgcolor='#FFFFFF' height='100' bordercolor='#FFFFFF'>"
tmphtml=tmphtml&"<tr>"
tmphtml=tmphtml&"<td>"
tmphtml=tmphtml&"<table border='0' width='144' cellpadding='0' height='100' bordercolor='#003366' style='border-collapse: collapse'>"
tmphtml=tmphtml&"<tr>"
tmphtml=tmphtml&"<td width=11><img border=0 src='images/left.gif'></td>"
tmphtml=tmphtml&"<td background=images/cont.gif width=123 align=center>"
tmphtml=tmphtml&"<table border='1'  cellpadding='1'  bordercolor='#425A9C' style='border-collapse: collapse'>"
tmphtml=tmphtml&"<tr>"
tmphtml=tmphtml&"<td>"
tmphtml=tmphtml&"<a target='_blank' href='"&dirstr&urlstr&"'>"
tmphtml=tmphtml&"<img border='0' src='"&dirstr&urlstr&"' width='102' height='80'></a></td>"
tmphtml=tmphtml&"</tr>"
tmphtml=tmphtml&"</table>"
tmphtml=tmphtml&"<td width=6><img border=0 src='images/right.gif'></td>"
tmphtml=tmphtml&"</tr>"
tmphtml=tmphtml&"</table>"
tmphtml=tmphtml&"</td>"
tmphtml=tmphtml&"</tr>"
tmphtml=tmphtml&"<tr>"
tmphtml=tmphtml&"<td >"
tmphtml=tmphtml&"<p align='center'><b>"&namestr&"</b></font><font color='#ff6600'>["&sizestr&"]</font></td>"
tmphtml=tmphtml&"</tr>"
tmphtml=tmphtml&"</table>"
showpaper=tmphtml
end function
'-------------------------------------
%>

<%
Set connpaper = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("desk/db.asp")
connpaper.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
sql="select * from paper order by pubdate desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,connpaper,3,1 
%>
<div align=center>
<table border="0" width="770" cellspacing="0" cellpadding="0" >
	<tr>
	<%
	for i=1 to 5
	p=i
	response.write "<td width='20%' valign='top' align='center'>"&showpaper(rs("ID"),rs("name"),rs("url"),rs("size"),"desk/")&"</td>"
	rs.movenext
	if rs.eof then exit for
	next
	rs.close
	set rs=nothing
	set connpaper=nothing
	  %>
	</tr>
</table>
</div>