qq_list.asp

本源代码采用asp编程,风格独特,欢迎大家下载,学习与交流!

<!--#include file="conn.asp"-->
<link rel="stylesheet" href="style.css" type="text/css">
<%zl = request.querystring("zl")
flt = request.querystring("flt")
sp = session("qqsp") * 800
if sp = 0 then sp = 8000%>
<Script language="javascript">
  setTimeout("window.location='qq_list.asp?zl=<%=zl%>&flt=<%=flt%>'",<%=sp%>);
</Script>
<table width="100%" border="0" cellpadding="1" cellspacing="1" align="center">
<%if flt = "zlt" then%>
<tr><td>
论坛分类：
<%session("qqzl") = zl
set rs=server.createobject("adodb.recordset")
exec="select top 6 * from zl order by id desc"
rs.open exec,conn,1,1
for i = 1 to 6
	if rs.eof then exit for%>
<input type="radio" name="zl<%=i%>" value="<%=rs("zl")%>" <%if zl = rs("zl") then response.write "checked"%> onClick="javascript:window.location='qq_list.asp?flt=<%=flt%>&zl='+document.all('zl<%=i%>').value;"><%=rs("zl")%>
<%rs.movenext
next%>
</td></tr>
<%end if
response.write(xszh(application(zl)))%>
</table>
<script language="JavaScript"> 
<!-- 
var flag=false; 
function DrawImage(ImgD){ 
var image=new Image(); 
image.src=ImgD.src; 
if(image.width>0 && image.height>0){ 
flag=true; 
if(image.width/image.height>= 470/450){ 
if(image.width>450){ 
ImgD.width=450; 
ImgD.height=(image.height*450)/image.width; 
}else{ 
ImgD.width=image.width; 
ImgD.height=image.height; 
} 
ImgD.alt=image.width+"×"+image.height; 
} 
else{ 
if(image.height>450){ 
ImgD.height=450; 
ImgD.width=(image.width*470)/image.height; 
}else{ 
ImgD.width=image.width; 
ImgD.height=image.height; 
} 
ImgD.alt=image.width+"×"+image.height; 
} 
} 
} 
//--> 
</script>