相关代码 |
|
dim zhuid,typename
zhuid = Request.QueryString("zhuid")
typename = Request.QueryString("typename")
%>
添加软件
style="DISPLAY: none; POSITION: absolute; WIDTH: 250px; left: 469px; top: 79px; visibility: hidden">
width=100% cellpadding="0">
请选择要添加软件的父类
function showfloatdiv(){floatdiv.style.display="block";floatdiv.style.visibility="visible";}function hidefloatdiv(){floatdiv.style.display="none";floatdiv.style.visibility="hidden";}
关闭
dim bentop,strSQL
strSQL ="SELECT * FROM zhu ORDER BY zhuid DESC"
Set bentop = Server.CreateObject("ADODB.Recordset")
bentop.open strSQL,Conn,0,1
if bentop.eof then
response.write "还没有任何父级分类"
else
do while not bentop.eof
if not bentop.eof then
%>
end if
loop
bentop.close
set bentop=nothing
end if
%>
color="#FFFFFF">添加影片
程序名称：
class="smallinput" maxlength="255">
*
程序大小：
class="smallinput" maxlength="255" value="80M">
*
程序类别：
=>
dim rs,sql,sel
set rs=server.createobject("adodb.recordset")
sql="select * from type where zhuid='"&zhuid&"'"
rs.open sql,conn,1.1
do while not rs.eof
sel="selected"
response.write ""+rs("type")+""+chr(13)+chr(10)
rs.movenext
loop
rs.close
%>
程序评价：
★
★★
★★★
★★★★
★★★★★
运行系统：
WIN9X
WIN9X/NT
WIN9X/WIN2000/WINNT
WINNT
DOS
LINUX
UNIX/LINUX
UNIX
MAC
IP地址：
class="smallinput" maxlength="255" value="192.168.0.3">
浏览该文件
影片集数：
class="smallinput" maxlength="255" value="2">
*
目录：
class="smallinput" maxlength="255" value="rm">
* 下载该文件
当前状态：
class="smallinput" maxlength="255" value="全片完">
（全片完、连载待续）
缩略图地址：
class="smallinput" maxlength="255" value="mimage/no.gif">
程序简介：
*
站长推崇：
是：
：否
请尊重程序原作者的名称，严禁盗版版权！
name="cmdok" class="buttonface">
name="cmdcancel" class="buttonface">
以上代 * 为必填写
7返回管理页面
set conn=nothing
%>