请高手支招
1、数据表里空了会出错：我加了一段<%
set rsd=server.CreateObject("ADODB.RecordSet")
strsql="select typename from type"
rsd.Open strsql,conn,1,1
if typename=null then %>暂无栏目
<%else%>不能正常运行，为什么？
2、表一显示的“对内报道”（即<%=pppp%>）到表二中要相应替换成“对外报道”（即type表的中对应的typeName）怎么办？
3、下面的代码中的qq=1
当typeid起始值不等于1的时侯，如等于100，也得从typeid=1开始执行，如何变为数据表真正存在的第一行（如typeid=100）处开始执行？
<%@ Language=VBScript%>
<%
set rsd=server.CreateObject("ADODB.RecordSet")
strsql="select typename from type"
rsd.Open strsql,conn,1,1
if typename=null then %>暂无栏目
<%else%>
<%
set rsd=server.CreateObject("ADODB.RecordSet")
strsql="select * from type"
rsd.Open strsql,conn,1,1
nubn=rsd.RecordCount
pppp=rsd("typeName")
rsd.close
set rsd=nothing
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from type order by typeorder"
rs.Open rs.Source,conn,1,1
dim ArraytypeID(10000),ArraytypeName(10000),Arraytypecontent(10000)
typeCount=rs.RecordCount
for i=1 to typeCount
ArraytypeID(i)=rs("typeID")
ArraytypeName(i)=rs("typeName")
Arraytypecontent(i)=rs("typecontent")
rs.MoveNext
next
rs.Close
PageShowSize = 10 '每页显示多少个页
MyPageSize = 20 '每页显示多少条新闻
If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
MyPage=1
Else
MyPage=Int(Abs(Request("page")))
End if
%>
统计积分__<%=jjgn%>
2003 |
总浏览排行 |
<%
set rs=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then
rs.Source="select top "& top_txt &" * from News where checkked=1 order by click DESC,newsid desc"
end if
if Request.cookies("key")="" then
rs.Source="select top "& top_txt &" * from News where (checkked=1 and newslevel=0) order by click DESC,newsid desc"
end if
if Request.cookies("key")="selfreg" then
if Request.cookies("reglevel")=3 then
rs.Source="select top "& top_txt &" * from News where (checkked=1 and newslevel<=3) order by click DESC,newsid desc"
end if
if Request.cookies("reglevel")=2 then
rs.Source="select top "& top_txt &" * from News where (checkked=1 and newslevel<=2) order by click DESC,newsid desc"
end if
if Request.cookies("reglevel")=1 then
rs.Source="select top "& top_txt &" * from News where (checkked=1 and newslevel<=1) order by click DESC,newsid desc"
end if
end if
else
rs.Source="select top "& top_txt &" * from News where checkked=1 order by click DESC,newsid desc"
end if
rs.Open rs.Source,conn,1,1
while not rs.EOF
title=trim(rs("title"))
title=replace(title,"
","")
%>
" target="_blank" title="<%=title%>">">
<%if len(title)>10 then%>
<%=left(title,10)%>...
<%else%>
<%=title%>
<%end if%>
<%=rs("click")%>
<%
rs.MoveNext
wend
rs.close
%>
|
|
|
|
 |
|
<%
qq=1
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data/dl19770422news30000.asa")
set rs0=server.createobject("adodb.recordset")
sql0="select typeid from News"
rs0.open sql0,conn,1,1
do while not rs0.eof
set rs=server.createobject("adodb.recordset")
sql="select smallclassid ,count(*) ,SUM(addpoint) from News where typeid="&qq&" group by smallclassid"
rs.open sql,conn,1,1
if not rs.eof then
i=1
%>
bordercolorlight="#000000" align="center">
<%=pppp%>自动统计积分程序生成表 |
序号 |
报道性质 |
报道篇数 |
基础得分 |
录用加分 |
对内积分 |
<%
do while not rs.eof
set rs1=server.createobject("adodb.recordset")
sql1="select smallclasszs from smallclass where smallclassid="& rs(0)
rs1.open sql1,conn,1,1
%>
<%=i%> |
<%=rs1(0)%><%=pppp%> |
<%=rs(1)%> |
<%
a=rs(1)
if (a*0.1) < 1 then
response.write formatnumber(a*0.1,0,-1)
else
response.write ""
end if
%><%=rs(1)*0.1%> |
<%=rs(2)%> |
<%
a=rs(1)
b=rs(2)
if (a*0.1+b) < 1 then
response.write formatnumber(a*0.1+b,0,-1)
else
response.write ""
end if
%><%=rs(1)*0.1+rs(2)%> |
<%
rs1.close
set rs1=nothing
rs.movenext
i=i+1
loop
else
%><%
end if
rs.close
set rs=nothing
%>
<%
qq=qq+1
rs0.movenext
if qq>nubn then exit do
loop
conn.close
set conn=nothing
%>
|
|
|
<%end if%>
