⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_edit_download.asp

📁 asp+sql软件系统
💻 ASP
字号:
🔍 
<!--#include file="../conn.asp"-->
<!--#include file="CheckAdmin.asp"-->
<%
ErrTitle = "编辑下载出错："
SucTitle = "编辑下载成功："
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>编辑软件</title>
<script src="../JS/selectlist.js"></script>
<script language="JavaScript">
<!--
//权限选择
function Dacc(addWriter) {
var revisedWriter;
var rev = "";
if (document.myform.daccredit.value != "") {
rev = ","
}
revisedWriter = addWriter;
document.myform.daccredit.value=revisedWriter + rev + document.myform.daccredit.value;
document.myform.daccredit.focus();
return; }
//环境选择
function Dset(addWriter) {
var revisedWriter;
var rev = "";
if (document.myform.dsetting.value != "") {
rev = ","
}
revisedWriter = addWriter;
document.myform.dsetting.value=document.myform.dsetting.value + rev + revisedWriter;
document.myform.dsetting.focus();
return; }
//大小单位选择
function Dsiz(addWriter) {
var revisedWriter;
revisedWriter = addWriter;
document.myform.dsize.value= document.myform.dsize.value + " " + revisedWriter;
document.myform.dsize.focus();
return; }
//类型选择
function Dgen(addWriter) {
var revisedWriter;
var rev = "";
if (document.myform.dgenre.value != "") {
rev = ","
}
revisedWriter = addWriter;
document.myform.dgenre.value=revisedWriter + rev + document.myform.dgenre.value;
document.myform.dgenre.focus();
return; }
//-->
</script>
</head>

<body onLoad="Kermy_JS('setDynaList(arrNSet)')"> 
<%
Dim Did,DRs
Dim dname,ACid,NCid,daccredit,dappraise,dsetting,dsize,dgenre,dcards
Dim dimgcut,dalink,ddlink,dkey,dremark,dpurview,dcommend,dflag,dcount

Did = Request.QueryString("Did")
dname = Trim(Request.Form("dname"))
ACid = CInt(Request.Form("ACid"))
NCid = CInt(Request.Form("NCid"))
daccredit = Trim(Request.Form("daccredit"))
dappraise = Trim(Request.Form("dappraise"))
dsetting = Trim(Request.Form("dsetting"))
dsize = Trim(Request.Form("dsize"))
dgenre = Trim(Request.Form("dgenre"))
dimgcut = Trim(Request.Form("dimgcut"))
dalink = Trim(Request.Form("dalink"))
ddlink = Trim(Request.Form("ddlink"))
dkey = Trim(Request.Form("dkey"))
dremark = Trim(Request.Form("dremark"))
dpurview = Trim(Request.Form("dpurview"))
dcommend = Trim(Request.Form("dcommend"))
dflag = Trim(Request.Form("dflag"))
dcards = CInt(Request.Form("dcards"))
dcount = CInt(Request.Form("dcount"))

Select Case Action
	Case "Add"
		Call Add()
	Case "SaveAdd"
		Call SaveAdd()
	Case "Edit"
		Call Edit()
	Case "SaveEdit"
		Call SaveEdit()
End Select

Sub Add()

Call OpenDatabase()%>
<form name="myform" method="post" action="?Action=SaveAdd">
<table width="75%" border="1" align="center" cellpadding="2" cellspacing="0">
  <tr>
    <td colspan="2">添加下载</td>
  </tr>
  <tr>
    <td width="23%" align="right">程序名称</td>
    <td width="77%"><input name="dname" type="text" id="dname" size="35" maxlength="50"></td>
  </tr>
  <tr>
    <td align="right">程序类别</td>
    <td><%=NetCom.CataLog(0,0)%></td>
  </tr>
  <tr>
    <td align="right">授权</td>
    <td><input name="daccredit" type="text" id="daccredit" size="25" maxlength="25">
    <select name="select1" id="select1" onChange=Dacc(this.options[this.selectedIndex].value)>
	<option selected>选择</option>
      <option value="免费">免费</option>
      <option value="共享">共享</option>
      <option value="商业">商业</option>
      <option value="破解">破解</option>
        </select>
    </td>
  </tr>
  <tr>
    <td align="right">评价</td>
    <td><select name="dappraise" id="dappraise">
    <option value="1" selected>一星</option>
    <option value="2">二星</option>
    <option value="3">三星</option>
    <option value="4">四星</option>
    <option value="5">五星</option>
    </select></td>
  </tr>
  <tr>
    <td align="right">运行环境</td>
    <td><input name="dsetting" type="text" id="dsetting" size="25" maxlength="25">
      <select name="select2" id="select2" onChange=Dset(this.options[this.selectedIndex].value)>
	  <option selected>选择</option>
      <option value="Windows9X">Windows9X</option>
      <option value="Windows2000">Windows2000</option>
      <option value="WindowsXP">WindowsXP</option>
      <option value="Windows2003">Windows2003</option>
      <option value="Liunx">Liunx</option>
      </select></td>
  </tr>
  <tr>
    <td align="right">大小</td>
    <td><input name="dsize" type="text" id="dsize" size="25" maxlength="25">
      <select name="select3" onChange=Dsiz(this.options[this.selectedIndex].value)>
	  <option selected>选择</option>
      <option value="K">K</option>
      <option value="M">M</option>
      <option value="G">G</option>
      </select></td>
  </tr>
  <tr>
    <td align="right">文件类型</td>
    <td><input name="dgenre" type="text" id="dgenre" size="25" maxlength="25">
      <select name="select4" onChange=Dgen(this.options[this.selectedIndex].value)>
    <option selected>选择</option>
	<option value="ZIP">ZIP</option>
    <option value="RAR">RAR</option>
    <option value="EXE">EXE</option>
    </select></td>
  </tr>
  <tr>
    <td align="right">程序截图</td>
    <td><input name="dimgcut" type="text" id="dimgcut" size="50" maxlength="200"> <input type="submit" name="UpImg" value="上传" onClick="javascript:window.open('Uplaod.asp?Action=Up');return false;"></td>
  </tr>
  <tr>
    <td align="right">作者连接</td>
    <td><input name="dalink" type="text" id="dalink" size="50" maxlength="200"></td>
  </tr>
  <tr>
    <td align="right">演示连接</td>
    <td><input name="ddlink" type="text" id="ddlink" size="50" maxlength="200"></td>
  </tr>
  <tr>
    <td align="right">关键字</td>
    <td><input name="dkey" type="text" id="dkey">
      (用于相关程序不易过长)</td>
  </tr>
  <tr>
    <td align="right">简介说明</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td align="right">&nbsp;</td>
    <td><textarea name="dremark" cols="50" rows="10" id="dremark"></textarea></td>
  </tr>
  <tr>
    <td align="right">访问权限</td>
    <td>
    <select name="dpurview" id="dpurview">
    <option value="0" selected>免费</option>
    </select></td>
  </tr>
  <tr>
    <td align="right">推荐</td>
    <td><select name="dcommend" id="dcommend">
    <option value="1">首页推荐</option>
    <option value="2">类页推荐</option>
    <option value="3">普通推荐</option>
    <option value="4">图片推荐</option>
    <option value="0" selected>不推荐</option>
    </select></td>
  </tr>
  <tr align="center">
    <td colspan="2"><input type="submit" name="Submit" value="添加"></td>
    </tr>
</table>
</form>
<%
Call CloseDatabase()
End Sub

Sub SaveAdd()

If dname="" or daccredit="" or dappraise="" or dsetting="" or dsize="" or dgenre="" or dkey="" or dremark="" or dpurview="" or dcommend="" or dcards="" or dcount="" Then
	ErrInfo = ErrInfo&"<li>请填写完整各项资料。</li>"
	FoundErr=True
End If

If FoundErr Then
	Call ErrorMsg()
Else
    Call OpenDatabase()
	Conn.Execute("INSERT INTO [Download](Dname,Daclass,Dnclass,Dappraise,Daccredit,Dsetting,Dsize,Dgenre,Dimgcut,Dalink,Ddlink,Dkey,Dremark,Dcards,Dpurview,Dcount,Author,Commend,Flag)VALUES('"&NetCom.checkStr(dname)&"',"&ACid&","&NCid&","&dappraise&",'"&daccredit&"','"&dsetting&"','"&dsize&"','"&dgenre&"','"&dimgcut&"','"&dalink&"','"&ddlink&"','"&dkey&"','"&NetCom.checkStr(dremark)&"','"&dcards&"','"&dpurview&"','"&dcount&"','"&Session("NetCom_Admin_Name")&"','"&dcommend&"',2)")
    Call CloseDatabase()
    Call SucMsg("<li>添加软件成功！</li>","Admin_Download.asp")
End If
End Sub

Sub Edit()
Call OpenDatabase()
Set DRs=Conn.Execute("SELECT Dname,Daclass,Dnclass,Dappraise,Daccredit,Dsetting,Dsize,Dgenre,Dimgcut,Dalink,Ddlink,Dkey,Dremark,Dcards,Dpurview,Dcount,Commend,Flag FROM [Download] WHERE Did="&CInt(Did)&"")%>
<form name="myform" method="post" action="?Action=SaveEdit&Did=<%=Did%>">
<table width="75%" border="1" align="center" cellpadding="2" cellspacing="0">
  <tr>
    <td colspan="2">编辑下载</td>
  </tr>
  <tr>
    <td width="23%" align="right">程序名称</td>
    <td width="77%"><input name="dname" type="text" id="dname" size="35" maxlength="50" value="<%=DRs(0)%>"></td>
  </tr>
  <tr>
    <td align="right">程序类别</td>
    <td><%=NetCom.CataLog(DRs(1),DRs(2))%></td>
  </tr>
  <tr>
    <td align="right">授权</td>
    <td><input name="daccredit" type="text" id="daccredit" size="25" maxlength="25" value="<%=DRs(4)%>">
    <select name="select1" id="select1" onChange=Dacc(this.options[this.selectedIndex].value)>
	<option selected>选择</option>
      <option value="免费">免费</option>
      <option value="共享">共享</option>
      <option value="商业">商业</option>
      <option value="破解">破解</option>
        </select>
    </td>
  </tr>
  <tr>
    <td align="right">评价</td>
    <td><select name="dappraise" id="dappraise">
    <option value="1" <%if DRs(3)=1 Then Response.Write ("selected")%>>一星</option>
    <option value="2" <%if DRs(3)=2 Then Response.Write ("selected")%>>二星</option>
    <option value="3" <%if DRs(3)=3 Then Response.Write ("selected")%>>三星</option>
    <option value="4" <%if DRs(3)=4 Then Response.Write ("selected")%>>四星</option>
    <option value="5" <%if DRs(3)=5 Then Response.Write ("selected")%>>五星</option>
    </select></td>
  </tr>
  <tr>
    <td align="right">运行环境</td>
    <td><input name="dsetting" type="text" id="dsetting" size="25" maxlength="25" value="<%=DRs(5)%>">
      <select name="select2" id="select2" onChange=Dset(this.options[this.selectedIndex].value)>
	  <option selected>选择</option>
      <option value="Windows9X">Windows9X</option>
      <option value="Windows2000">Windows2000</option>
      <option value="WindowsXP">WindowsXP</option>
      <option value="Windows2003">Windows2003</option>
      <option value="Liunx">Liunx</option>
      </select></td>
  </tr>
  <tr>
    <td align="right">大小</td>
    <td><input name="dsize" type="text" id="dsize" size="25" maxlength="25" value="<%=DRs(6)%>">
      <select name="select3" onChange=Dsiz(this.options[this.selectedIndex].value)>
	  <option selected>选择</option>
      <option value="K">K</option>
      <option value="M">M</option>
      <option value="G">G</option>
      </select></td>
  </tr>
  <tr>
    <td align="right">文件类型</td>
    <td><input name="dgenre" type="text" id="dgenre" size="25" maxlength="25" value="<%=DRs(7)%>">
      <select name="select4" onChange=Dgen(this.options[this.selectedIndex].value)>
    <option selected>选择</option>
	<option value="ZIP">ZIP</option>
    <option value="RAR">RAR</option>
    <option value="EXE">EXE</option>
    </select></td>
  </tr>
  <tr>
    <td align="right">程序截图</td>
    <td><input name="dimgcut" type="text" id="dimgcut" size="50" maxlength="200" value="<%=DRs(8)%>"> <input type="submit" name="UpImg" value="上传" onClick="javascript:window.open('Uplaod.asp?Action=Up');return false;"></td>
  </tr>
  <tr>
    <td align="right">作者连接</td>
    <td><input name="dalink" type="text" id="dalink" size="50" maxlength="200" value="<%=DRs(9)%>"></td>
  </tr>
  <tr>
    <td align="right">演示连接</td>
    <td><input name="ddlink" type="text" id="ddlink" size="50" maxlength="50" value="<%=DRs(10)%>"></td>
  </tr>
  <tr>
    <td align="right">关键字</td>
    <td><input name="dkey" type="text" id="dkey" value="<%=DRs(11)%>">
      (用于相关程序不易过长)</td>
  </tr>
  <tr>
    <td align="right">简介说明</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td align="right">&nbsp;</td>
    <td><textarea name="dremark" cols="50" rows="10" id="dremark"><%=DRs(12)%></textarea></td>
  </tr>
  <tr>
    <td align="right">访问权限</td>
    <td>
    <select name="dpurview" id="dpurview">
    <option value="0" <%if DRs(14)=0 Then Response.Write ("selected")%>>免费</option>
    </select></td>
  </tr>
  <tr>
    <td align="right">推荐</td>
    <td><select name="dcommend" id="dcommend">
    <option value="1" <%if DRs(16)=1 Then Response.Write ("selected")%>>首页推荐</option>
    <option value="2" <%if DRs(16)=2 Then Response.Write ("selected")%>>类页推荐</option>
    <option value="3" <%if DRs(16)=3 Then Response.Write ("selected")%>>普通推荐</option>
    <option value="4" <%if DRs(16)=4 Then Response.Write ("selected")%>>图片推荐</option>
    <option value="0" <%if DRs(16)=0 Then Response.Write ("selected")%>>不推荐</option>
    </select></td>
  </tr>
  <tr>
    <td align="right">标识</td>
    <td>显示
      <input name="dflag" type="radio" value="1" <%if DRs(17)=1 Then Response.Write ("checked")%>>
      隐藏
      <input type="radio" name="dflag" value="0" <%if DRs(17)=0 Then Response.Write ("checked")%>>
      无地址
      <input type="radio" name="dflag" value="2" <%if DRs(17)=2 Then Response.Write ("checked")%>></td>
  </tr>
  <tr align="center">
    <td colspan="2"><input type="submit" name="Submit" value="修改"></td>
    </tr>
</table>
</form>
<%
DRs.Close
Set DRs=Nothing
Call CloseDatabase()
End Sub

Sub SaveEdit()
If dname="" or daccredit="" or dappraise="" or dsetting="" or dsize="" or dgenre="" or dkey="" or dremark="" or dpurview="" or dcommend="" or dcards="" or dcount="" Then
	ErrInfo = ErrInfo&"<li>请填写完整各项资料。</li>"
	FoundErr=True
End If

If FoundErr Then
	Call ErrorMsg()
Else
    Call OpenDatabase()
	Conn.Execute("UPDATE [Download] SET Dname='"&NetCom.checkStr(dname)&"',Daclass="&ACid&",Dnclass="&NCid&",Dappraise="&dappraise&",Daccredit='"&daccredit&"',Dsetting='"&dsetting&"',Dsize='"&dsize&"',Dgenre='"&dgenre&"',Dimgcut='"&dimgcut&"',Dalink='"&dalink&"',Ddlink='"&ddlink&"',Dkey='"&dkey&"',Dremark='"&NetCom.checkStr(dremark)&"',Dcards="&dcards&",Dpurview="&dpurview&",Dcount="&dcount&",Upddate='"&Now()&"',Commend="&dcommend&",Flag="&dflag&" WHERE Did="&Did&"")
    Call CloseDatabase()
    Call SucMsg("<li>修改软件成功！</li>","Admin_Download.asp")
End If
End Sub
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -