📄 admin_down.asp
字号:
end if
rs("Grade")=cint(uGrade)
if cint(uGrade)=0 then
rs("points")=0
else
rs("points")=cint(points)
end if
rs("tjuser")=tjuser
if cint(downisbest)=1 then
sql="UPDATE [user] SET points = points + "&bestpoints&" where username='"&tjuser&"'"
conn.execute (sql)
end if
if cint(downistop)=1 then
sql="UPDATE [user] SET points = points + "&toppoints&" where username='"&tjuser&"'"
conn.execute (sql)
end if
rs.update
rs.close
set rs=nothing
response.redirect "admin_down.asp?action=list"
end if
end if
if request.QueryString("action")="newsoft" then
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form name="form1" method="post" action="admin_down.asp?action=list">
<tr class=Hxcmsss>
<td colspan="2">新增软件</td>
</tr>
<tr class=Hxcmsds>
<td width="16%">软件名称：</td>
<td width="84%"><input type="text" name="name" size="40" class="textarea"></td>
</tr>
<tr class=Hxcmsds>
<td>软件大小：</td>
<td><input type="text" name="size" size="20" class="textarea"></td>
</tr>
<tr class=Hxcmsds>
<td>授权方式：</td>
<td>
<select name="mode">
<option value="免费软件" selected>免费软件</option>
<option value="共享软件">共享软件</option>
<option value="汉化软件">汉化软件</option>
<option value="破解软件">破解软件</option>
</select>
</td>
</tr>
<tr class=Hxcmsds>
<td>应用平台：</td>
<td>
<select name="roof">
<option value="Win9x/Me">Win9x/Me</option>
<option value="IIS环境" selected>IIS环境</option>
<option value="WinNT/2000/XP">WinNT/2000/XP</option>
<option value="Win9x/Me/NT/2000/XP">Win9x/Me/NT/2000/XP</option>
</select>
</td>
</tr>
<tr class=Hxcmsds>
<td>推荐程度：</td>
<td>
<select name="commend">
<option value="5">5stars</option>
<option value="4">4stars</option>
<option value="3" selected>3stars</option>
<option value="2">2stars</option>
<option value="1">1stars</option>
<option value="0">0stars</option>
</select>
</td>
</tr>
<tr class=Hxcmsds>
<td>所属分类：</td>
<td>
<select name="of">
<%
dim catname,classname,catid,classid
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM d_cat"
rs.OPEN sql,Conn,1,1
if not (rs.eof and rs.bof) then
rs.movefirst
do while not rs.eof
response.write "<optgroup label='"&rs("cat_name")&"'>"
sql="select * from d_class where cat_id="&rs("cat_id")
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.OPEN sql,Conn,1,1
if not (rs2.eof and rs2.bof) then
do while not rs2.eof
catid=rs("cat_id")
classid=rs2("class_id")
catname=rs("cat_name")
classname=rs2("class_name")
%>
<option value='<%=rs2("class_id")%>'>├ <%=rs2("class_name")%></option>
<%
rs2.movenext
loop
end if
rs.movenext
rs2.close
set rs2=nothing
loop
end if
%>
</select>
</td>
</tr>
<tr class=Hxcmsds>
<td>演示地址：</td>
<td>
<input type="text" name="demo" size="60" class="textarea">
</td>
</tr>
<tr class=Hxcmsds>
<td>主页地址：</td>
<td>
<input type="text" name="home" size="60" class="textarea" value="http://hx66.net">
</td>
</tr>
<tr class=Hxcmsds>
<td>图片地址：</td>
<td>
<input type="text" name="showpic" size="60" class="textarea" value="http://hx66.net">
</td>
</tr>
<tr class=Hxcmsds>
<td> 上传图片： </td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=downpic"></iframe></td>
</tr>
<tr class=Hxcmsds>
<td>程序简介：</td>
<td>
<textarea name="desc" cols="65" rows="10" class="textarea">没有</textarea>
</td>
</tr>
<tr class=Hxcmsds>
<td>本地下载：</td>
<td>
<input type="text" name="url1" size="60" class="textarea">
</td>
</tr>
<tr class=Hxcmsds>
<td> 上传软件： </td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=down"></iframe></td>
</tr>
<tr class=Hxcmsds>
<td>镜像下载：</td>
<td>
<input type="text" name="url2" size="60" class="textarea">
</td>
</tr>
<tr class=Hxcmsds>
<td>远程下载1：</td>
<td>
<input type="text" name="url3" size="60" class="textarea">
</td>
</tr>
<tr class=Hxcmsds>
<td>远程下载2：</td>
<td>
<input type="text" name="url4" size="60" class="textarea">
</td>
</tr>
<tr>
<td class=Hxcmsds>下载等级：：</td>
<td><select name="Grade" id="Grade">
<option value="0" selected>游客下载</option>
<option value="1">普通用户</option>
<option value="2">VIP 用户</option>
</select> 扣除会员积分数：<input type="text" name="points" size="4" value=""> (应添数字) *游客下载请留空
</td>
</tr>
<tr class=Hxcmsds>
<td>软件添加：</td>
<td><input type="text" name="tjuser" size="10" value="<%=Session("hxStudioAdminName")%>"></td>
</tr>
<tr class=Hxcmsqs>
<td colspan="2" align="center" height="30">
<input type="checkbox" name="istop" value="1">置顶 <input type="checkbox" name="isbest" value="1">推荐 <input type="submit" name="Submit" value="确定新增" class="button">
<input type="reset" name="Reset" value="清空重填" class="button">
<input type="button" value="返回" onClick="location.href='admin_down.asp?action=list'" class="button"></td>
</tr>
<input type="hidden" name="action" value="newsoft">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
if request.QueryString("action")="editsoft" then
if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
response.end
else
if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的软件ID参数！');history.back(1);</script>")
response.end
end if
end if
sql="select * from soft where soft_id="&clng(request.querystring("id"))
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form name="form1" method="post" action="admin_down.asp?action=list">
<tr class=Hxcmsss>
<td colspan="2">编辑软件</td>
</tr>
<tr class=Hxcmsds>
<td width="16%">软件名称：</td>
<td width="84%"> <input type="text" name="name" size="40" class="textarea" value="<%=rs2("soft_name")%>"></td>
</tr>
<tr class=Hxcmsds>
<td>软件大小：</td>
<td> <input type="text" name="size" size="20" class="textarea" value="<%=rs2("soft_size")%>">
</td>
</tr>
<tr class=Hxcmsds>
<td>授权方式：</td>
<td>
<select name="mode">
<option value="免费软件" <%if rs2("soft_mode")="免费软件" then response.write "selected" end if%>>免费软件</option>
<option value="共享软件" <%if rs2("soft_mode")="共享软件" then response.write "selected" end if%>>共享软件</option>
<option value="汉化软件" <%if rs2("soft_mode")="汉化软件" then response.write "selected" end if%>>汉化软件</option>
<option value="破解软件" <%if rs2("soft_mode")="破解软件" then response.write "selected" end if%>>破解软件</option>
</select>
</td>
</tr>
<tr class=Hxcmsds>
<td>应用平台：</td>
<td>
<select name="roof">
<option value="IIS环境" <%if rs2("soft_roof")="IIS环境" then response.write "selected" end if%>>IIS环境</option>
<option value="Win9x/Me" <%if rs2("soft_roof")="Win9x/Me" then response.write "selected" end if%>>Win9x/Me</option>
<option value="WinNT/2000/XP" <%if rs2("soft_roof")="WinNT/2000/XP" then response.write "selected" end if%>>WinNT/2000/XP</option>
<option value="Win9x/Me/NT/2000/XP" <%if rs2("soft_roof")="Win9x/Me/NT/2000/XP" then response.write "selected" end if%>>Win9x/Me/NT/2000/XP</option>
</select>
</td>
</tr>
<tr class=Hxcmsds>
<td>推荐程度：</td>
<td> <select name="commend" id="commend">
<option value="5" <%if rs2("soft_commend")=5 then response.write "selected" end if%>>5stars</option>
<option value="4" <%if rs2("soft_commend")=4 then response.write "selected" end if%>>4stars</option>
<option value="3" <%if rs2("soft_commend")=3 then response.write "selected" end if%>>3stars</option>
<option value="2" <%if rs2("soft_commend")=2 then response.write "selected" end if%>>2stars</option>
<option value="1" <%if rs2("soft_commend")=1 then response.write "selected" end if%>>1stars</option>
<option value="0" <%if rs2("soft_commend")=0 then response.write "selected" end if%>>0stars</option>
</select> </td>
</tr>
<tr class=Hxcmsds>
<td>所属分类：</td>
<td> <select name="of" id="of">
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM d_cat"
rs.OPEN sql,Conn,1,1
if not (rs.eof and rs.bof) then
rs.movefirst
do while not rs.eof
response.write "<optgroup label='"&rs("cat_name")&"'>"
sql="select * from d_class where cat_id="&rs("cat_id")
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.OPEN sql,Conn,1,1
if not (rs3.eof and rs3.bof) then
do while not rs3.eof
catid=rs("cat_id")
classid=rs3("class_id")
catname=rs("cat_name")
classname=rs3("class_name")
%>
<option value='<%=rs3("class_id")%>' <%if rs3("class_id")=rs2("soft_classid") then response.Write "selected" end if%>>├ <%=rs3("class_name")%></option>
<%
rs3.movenext
loop
end if
rs.movenext
rs3.close
set rs3=nothing
loop
end if
%></select></td>
</tr>
<tr class=Hxcmsds>
<td>演示地址：</td>
<td> <input type="text" name="demo" size="60" class="textarea" value="<%=rs2("soft_demo")%>">
</td>
</tr>
<tr class=Hxcmsds>
<td>主页地址：</td>
<td> <input type="text" name="home" size="60" class="textarea" value="<%=rs2("soft_home")%>">
</td>
</tr>
<tr class=Hxcmsds>
<td>图片地址：</td>
<td> <input type="text" name="showpic" size="60" class="textarea" value="<%=rs2("soft_showpic")%>">
</td>
</tr>
<tr class=Hxcmsds>
<td>上传图片：</td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=downpic"></iframe></td>
</tr>
<tr class=Hxcmsds>
<td>程序简介：</td>
<td> <textarea name="desc" cols="65" rows="10" class="textarea" id="desc"><%=rs2("soft_desc")%></textarea>
</td>
</tr>
<tr class=Hxcmsds>
<td>本地下载：</td>
<td> <input type="text" name="url1" size="60" class="textarea" value="<%=rs2("soft_url1")%>">
</td>
</tr>
<tr class=Hxcmsds>
<td>上传软件：</td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=down"></iframe></td>
</tr>
<tr class=Hxcmsds>
<td>镜像下载：</td>
<td> <input type="text" name="url2" size="60" class="textarea" value="<%=rs2("soft_url2")%>">
</td>
</tr>
<tr class=Hxcmsds>
<td>远程下载1：</td>
<td> <input type="text" name="url3" size="60" class="textarea" value="<%=rs2("soft_url3")%>">
</td>
</tr>
<tr class=Hxcmsds>
<td>远程下载2：</td>
<td> <input type="text" name="url4" size="60" class="textarea" value="<%=rs2("soft_url4")%>">
</td>
</tr>
<tr>
<td class=Hxcmsds>下载等级：</td>
<td><select name="Grade" id="Grade">
<option value="0" <%if rs2("Grade")="0" then response.write "selected" end if%>>游客下载</option>
<option value="1" <%if rs2("Grade")="1" then response.write "selected" end if%>>普通用户</option>
<option value="2" <%if rs2("Grade")="2" then response.write "selected" end if%>>VIP 用户</option>
</select> 扣除会员积分数：<input type="text" name="points" size="5" value="<%=rs2("points")%>"> **数字
</td>
</tr>
<tr class=Hxcmsds>
<td>软件添加：</td>
<td><input type="text" name="tjuser" size="10" value="<%=rs2("tjuser")%>">
</td>
</tr>
<tr class=Hxcmsqs>
<td colspan="2" align="center" height="30">
<input type="checkbox" name="istop" value="1" id="istop" <%if rs2("istop")=1 then response.write "checked" end if%>>
置顶 <input type="checkbox" name="isbest" value="1" id="isbest" <%if rs2("isbest")=1 then response.write "checked" end if%>>
推荐
<input name="Submit" type="submit" class="button" id="Submit" value="确定修改">
<input type="button" value="返回" onClick="location.href='admin_down.asp?action=list'" class="button"></td>
</tr>
<input type="hidden" name="id" value="<%=request.QueryString("id")%>">
<input type="hidden" name="action" value="editsoft">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%
rs2.close
set rs2=nothing
end if
end if
'****************************************************
' Hxcms Ver7.6 Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.com.cn
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -