求助~~测试程序~ - ASP及.net - 5D互动论坛

» 互动论坛 » ASP及.net » 求助~~测试程序~

跳转到：

每页显示15条 1/1<<<1>>

主题: 求助~~测试程序~

月幻
职务：普通成员
等级：1
金币：0.0
发贴：35

引用

#12002/5/19 1:00:25

月幻闪闪----外国語の師范学院ネツト.ヮ-クの中心制作(C)版权所有つきの泪href="images/bz/bz1.gif" rel="shortcut icon">

biggame_css.css? rel="stylesheet" type="text/css">

href="FLASHIMG/biggame_css.css" type=text/css rel=stylesheet>href="FLASHIMG/biggame_css.css" type=text/css rel=stylesheet>

<%'%>

<%
MaxPerPage=rs("duo")
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim typename
dim ty
typeid=request("typeid")
typename="月幻闪闪"
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim rstype
dim typesql
dim typeid,typename1
if not isEmpty(request("typeid")) then
    typeid=request("typeid")
else
    typeid=0
end if
set rstype=server.createobject("adodb.recordset")
typesql="select * from type where typeid="&typeid&""
rstype.open typesql,conn,1,1
if not rstype.eof then
    typename1=rstype("type")
else typename1="FLASH"
end if
rstype.close
set rst=server.CreateObject("ADODB.RecordSet")
%>
ondragstart="return false" return true" bgColor=#ffffff leftMargin=0 background=FLASHIMG/bg_120.gif
topMargin=0 marginwidth="0" marginheight="0">

onsubmit=" var objsel = this.id; var index = objsel.selectedindex;this.action = objsel.options[index].value; return true;"
action=/servlet/enp.web.publish method=get>

border=0>

target=_blank coords='36, 19, 93, 32' href="index.asp"> shape=RECT target=_blank coords='209, 17, 264, 31' href="http://bbs.5emoonrain.com"> shape=RECT target=_blank coords='294, 18, 346, 31' href="http://music.5emoonrain.com"> target=_blank coords='381, 19, 435, 33' href="http://soft.5emoonrain.com">
src="FLASHIMG/link100.gif" width=463 useMap=#FPMap0
border=0
href="../[A]http:/www.biggamer.com/gb/node/biggamer_chanpin.htm"
rectangle=" (299,16) (353,35) king.tseol.com/flfa/index.html">>

src="FLASHIMG/line_righttop.gif"
width=4>

align=center bgColor=#ffffff border=0>

height=5 rowSpan=2>

width=146>

src="FLASHIMG/icon_name.gif" width=39>	style="BORDER-RIGHT: rgb(127,127,127) 1px solid; BORDER-TOP: rgb(127,127,127) 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: rgb(127,127,127) 1px solid; WIDTH: 70px; BORDER-BOTTOM: rgb(127,127,127) 1px solid" onfocus=this.select() maxLength=20 size=26 name=username maxsize="32">
src="FLASHIMG/icon_password.gif" width=38>	style="BORDER-RIGHT: rgb(127,127,127) 1px solid; BORDER-TOP: rgb(127,127,127) 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: rgb(127,127,127) 1px solid; WIDTH: 70px; BORDER-BOTTOM: rgb(127,127,127) 1px solid" onfocus=this.select() type=password maxLength=15 size=26 name=password maxsize="32">
href="http://www.5emoonrain.com/dream/loginout.asp?forum="> type=image height=18 width=45 src="FLASHIMG/icon_logging.gif" border=0 name=b12> href="http://www.5emoonrain.com/bbs/policy.asp" target=_blank> src="FLASHIMG/icon_register.gif" width=45 border=0> href="http://www.5emoonrain.com/bbs/" target=_blank> src="FLASHIMG/icon_help.gif" width=22 border=0>

width=146>

width=119 border=0>

width="100%" border=1>

width=146>

	border=0 width="119" height="28">

width=146>

src="FLASHIMG/icon03.gif" width="119" height="26">

src="FLASHIMG/left_07.gif" width=146>

	src="FLASHIMG/icon04.gif" width=119>
	送给我最爱的:玲玲
height=16> width=146>

rowSpan=2>

src="FLASHIMG/line_top.gif" width=480>

height=6>

rowSpan=2 width="143">

background=FLASHIMG/di_right1.gif>

src="FLASHIMG/right_01.gif" width=136>

action=./vote/voting.php method=post target=votewin>

cellPadding=0 width=119 align=center
borderColorLight=#000000 border=0>

borderColorDark=#ffffff cellPadding=0 width=101
align=center borderColorLight=#000000 border=0>

<%
set rstype=server.createobject("adodb.recordset")
typesql="select * from type order by typeid"
rstype.open typesql,conn,1,1
if rstype.eof and rstype.bof then
response.write "

还没有任何栏目

"
else
%>

<%     rstype.movenext
     loop
    end if
    rstype.close
         %>

<%do while not rstype.eof%>

"><%=rstype("type")%> src="FLASHIMG/cat.gif" width=9 border=0>

align=right>　

background=FLASHIMG/di_right1.gif border=0>

src="FLASHIMG/cat.gif" width=9 border=0>

FLASH相关

border=0>

src="FLASHIMG/cat.gif" width=9 border=0>

FLASH教程

border=0>

src="FLASHIMG/cat1.gif" width=9 border=0>
src="FLASHIMG/cat1.gif" width=9 border=0>
src="FLASHIMG/cat1.gif" width=9 border=0>
src="FLASHIMG/cat1.gif" width=9 border=0>
src="FLASHIMG/cat1.gif" width=9 border=0>
src="FLASHIMG/cat1.gif" width=9 border=0>
colSpan=2>

border=0 height="55">

width=132>

border=0>

src="FLASHIMG/more1.gif" width=45
border=0>

background=FLASHIMG/di_right2.gif>
border=0>

src="FLASHIMG/icon07.gif" width=135>

height=10>

src="FLASHIMG/right_11.gif"
width=136>

src="FLASHIMG/line_xu.gif" width=471>

<%
dim sql
dim rs
'if request("hits")="1" then
' sql="select * from learning order by hits desc"
'else
if typeid=0 then
sql="select * from learning order by articleid desc"
else
sql="select * from learning where typeid="&typeid&" order by articleid desc"
end if
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "

还没有任何 flash

"
else
     totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
     if (totalPut mod MaxPerPage)=0 then
     currentpage= totalPut \ MaxPerPage
     else
     currentpage= totalPut \ MaxPerPage + 1
     end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage,"index.asp"
showContent
showpage1 totalput,MaxPerPage,"index.asp"
else
if (currentPage-1)*MaxPerPage rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpage totalput,MaxPerPage,"index.asp"
showContent
showpage1 totalput,MaxPerPage,"index.asp"
else
     currentPage=1
showpage totalput,MaxPerPage,"index.asp"
showContent
showpage1 totalput,MaxPerPage,"index.asp"
     end if
     end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i
     i=0
%>

<%i=0
do while not rs.eof%>

action=search.asp method=post>

borderColorLight=#000000 border=1 ? height="177">

color=#ffffff> src="FLASHIMG/rdxw.gif" width=305 align=left>

align=center border=0>

src="FLASHIMG/show_box1.gif" width=14>	src="FLASHIMG/show_box3.gif" width=120>	src="FLASHIMG/show_box2.gif" width=16>
	)"> height=80 src="<%=rs("domurl")%>" width=120 border=0>
	src="FLASHIMG/show_box4.gif" width=120>

cellPadding=0 width="100%" borderColorLight=#000000
border=0>

FLASH名称：<%=rs("title")%>

浏览次数：<%=rs("hits")%>

加入日期：<%=rs("dateandtime")%>

size=4>q )">在线观看
color=#ff0000>评价:<%=rs("softlevel")%>

<% i=i+1
     if i>=MaxPerPage then exit do
     rs.movenext
     loop
         %> <%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
Response.Write ""
response.write ""
response.write ""
response.write ""
response.write "

"
Response.Write "共有flash："&totalnumber&"个 "&CurrentPage&"/"&n&"页

"'flash搜索：
response.write ""
Response.Write ""

response.write " "
response.write "

"
if CurrentPage<2 then
response.write "首页上一页 "
else
response.write "首页 "
response.write "上一页 "
end if
if n-currentpage<1 then
response.write "下一页尾页"
else
response.write "下一页尾页"
end if
Response.Write "

"
'response.write " 页次： "
'response.write " 共"&totalnumber&"个flash "&maxperpage&"个flash/页 "
'response.write " 转到："
' response.write "

"
end function
function showpage1(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
Response.Write ""
response.write "

"
gotopage
response.write "

"
'response.write " 页次： "
'response.write " 共"&totalnumber&"个flash "&maxperpage&"个flash/页 "
'response.write " 转到："
' response.write "

"
end function
sub gotopage%>

<%end sub
function showpage2(totalnumber,maxperpage,filename)

dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "

"
response.write "

>>分页 "
if CurrentPage<2 then
response.write "首页上一页 "
else
response.write "首页 "
response.write "上一页 "
end if
if n-currentpage<1 then
response.write "下一页尾页"
else
response.write "下一页尾页"
end if
response.write " 页次："&CurrentPage&"/"&n&"页 "
response.write " 共"&totalnumber&"个flash"&maxperpage&"个软件/页 "
response.write " 转到："
response.write "