admin_soft.asp

这些都是我以前学习是用到的源码

	Response.Write ClassName
	Response.Write "</a>] "
	Response.Write "<a href=?action=view&ChannelID=" & ChannelID & "&SoftID="
	Response.Write SoftID
	Response.Write ">"
	Response.Write Newasp.ReadFontMode(SoftName &" "& SoftVer,ColorMode,FontMode)
	Response.Write "</a>" 
	
	If isBest <> 0 Then
		Response.Write "&nbsp;&nbsp;<font color=blue>荐</font>"
	End If

	Response.Write "	  </td>"
	Response.Write "	  <td align=""center"" nowrap "& strClass &"><span class='style3'>"& ReadSoftsize(SoftSize) &"</span></td>"
	Response.Write "	  <td align=""center"" nowrap "& strClass &"><a href=?action=edit&ChannelID="& ChannelID &"&SoftID="& SoftID &">编辑</a> | <a href=?action=del&ChannelID="& ChannelID &"&SoftID="& SoftID &" onclick=""{if(confirm('软件删除后将不能恢复，您确定要删除该软件吗?')){return true;}return false;}"">删除</a></td>"
	Response.Write "	  <td align=""center"" nowrap "& strClass &">"
	
	If isAccept = 1 Then
		Response.Write "<font color=blue>√</font>"
	Else
		Response.Write "<font color=red>×</font>"
	End If

	Response.Write "	  </td>"
	Response.Write "	  <td align=""center"" nowrap "& strClass &">"& UserName &"</td>"
	Response.Write "	  <td align=""center"" nowrap "& strClass &">"

	If SoftTime >= Date Then
		Response.Write "<font color=red>"
		Response.Write Newasp.FormatDate(SoftTime, 2)
		Response.Write "</font>"
	Else
		Response.Write Newasp.FormatDate(SoftTime, 2)
	End If

	Response.Write "	  </td>"
	Response.Write "	</tr>"
End Function

Private Sub SoftEdit(isEdit)
	Dim EditTitle,SoftNameColor,Channel_Setting,downid
	If isEdit Then
		If Not ChkAdmin("AddSoft" & ChannelID) Then
			Server.Transfer("showerr.asp")
			Response.End
		End If
		SQL = "select * from NC_SoftList where SoftID=" & CLng(Request("SoftID"))
		Set Rs = Newasp.Execute(SQL)
		ClassID = Rs("ClassID")
		softid = Rs("softid")
		EditTitle = "编辑" & sModuleName
	Else
		If Not ChkAdmin("AddSoft" & ChannelID) Then
			Server.Transfer("showerr.asp")
			Response.End
		End If
		EditTitle = "添加" & sModuleName
		ClassID = Request("ClassID")
		softid = 0
	End If
	Channel_Setting = Split(Newasp.Channel_Setting, "|||")
%>
<script src="include/checksoft.js" type="text/javascript"></script>
<script language= JavaScript>
function SelectPhoto(){
  var arr=showModalDialog('Admin_selFile.asp?ChannelID=<%=ChannelID%>&UploadDir=UploadPic', '', 'dialogWidth:800px; dialogHeight:600px; help: no; scroll: yes; status: no');
  if(arr!=null){
    var ss=arr.split('|');
    document.myform.SoftImage.value=ss[0];
  }
}
function SelectFile(){
  var arr=showModalDialog('Admin_selFile.asp?ChannelID=<%=ChannelID%>&UploadDir=UploadFile', '', 'dialogWidth:800px; dialogHeight:600px; help: no; scroll: yes; status: no');
  if(arr!=null){
    var ss=arr.split('|');
    document.myform.DownAddress1.value=ss[0];
    document.myform.filesize.value=ss[1];
  }
}

function ChangeTableR(e,n){
	for (i=1;i<=3;i++){
		document.getElementById('spanR'+i).className='HighLightR';
	}
	e.className='DisabledR';
	if(n==1){
		TableR1.style.display='';
		TableR2.style.display='none';
	}
	if(n==2){
		TableR1.style.display='none';
		TableR2.style.display='';
	}
}
function ChangeTableR(e,n){
    for (i=1;i<=3;i++){
        document.getElementById('spanR'+i).className='HighLightR';
    }
    if(n==1){
        TableR1.style.display='';
        TableR2.style.display='none';
	spanR1.className='DisabledR';
        document.myform.B1.disabled = true;
        document.myform.B2.disabled = false;
    }
    if(n==2){
        TableR1.style.display='none';
        TableR2.style.display='';
        spanR2.className='DisabledR';
    }
    if(n==3){
        TableR1.style.display='';
        TableR2.style.display='';
        document.myform.B1.disabled = false;
        document.myform.B2.disabled = true;
    }
}
</script>
<div onkeydown="CtrlEnter()">
<form method=Post name="myform" action="admin_Soft.asp">
<table  border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorders1">
        <tr>
          <th><%=EditTitle%></th>
        </tr>
        <tr>
          <td class="TableRow"><span id="spanR1" class="DisabledR" onclick="ChangeTableR(this,1)">常规信息</span>
	  <span id="spanR2" class="HighLightR" onclick="ChangeTableR(this,2)" title="点击查看更多下载设置">更多设置</span>
	  <span id="spanR3" class="HighLightR" onclick="doSubmit();" title="保存">保存<%=sModuleName%></span></td>
        </tr>
</table>
<table id="TableR1" border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorders3">
<%
	If isEdit Then
		Response.Write "<input type=""Hidden"" name=""action"" value=""modify"">"
		Response.Write "<input type=""Hidden"" name=""SoftID"" value="""& Request("SoftID") &""">"
	Else
		Response.Write "<input type=""Hidden"" name=""action"" value=""save"">"
	End If
	Response.Write "<input type=hidden name=ChannelID value='" & ChannelID & "'>"
%>
        <tr>
          <td width="15%" align="right" nowrap class="TableRow2"><b>所属分类：</b></td>
          <td width="35%" class="TableRow1">
<%
	Dim sClassSelect
	Response.Write "<select name=""ClassID"" id=""ClassID"">"
	sClassSelect = Newasp.LoadSelectClass(ChannelID)
	sClassSelect = Replace(sClassSelect, "{ClassID=" & ClassID & "}", "selected")
	Response.Write sClassSelect
	Response.Write "</select>"
%>
		  </td>
          <td width="15%" align="right" nowrap class="TableRow2"><b>所属专题：</b></td>
          <td width="35%" class="TableRow1"><%
	Response.Write "<select name=""SpecialID"" id=""SpecialID"">" & vbNewLine
	Response.Write "<option value=""0"">不指定" & sModuleName & "专题</option>" & vbNewLine
	Set RsObj = Newasp.Execute("SELECT SpecialID,SpecialName FROM NC_Special WHERE ChannelID="& ChannelID &" And ChangeLink=0 ORDER BY orders")
	Do While Not RsObj.EOF
		Response.Write Chr(9) & Chr(9) & "<option value=""" & RsObj("SpecialID") & """"
		If isEdit Then
			If Rs("SpecialID") = RsObj("SpecialID") Then Response.Write " selected"
		End If
		Response.Write ">"
		Response.Write RsObj("SpecialName")
		Response.Write "</option>" & vbCrLf
		RsObj.movenext
	Loop
	Set RsObj = Nothing
%>
          </select></td>
        </tr>
        <tr>
          <td align="right" class="TableRow2"><b><%=sModuleName%>名称：</b></td>
          <td class="TableRow1"><input name="SoftName" type="text" id="SoftName" size="35" value="<%If isEdit Then Response.Write Rs("SoftName")%>"> 
          <font color=red>*</font></td>
	  <td align="right" class="TableRow2"><b><%=sModuleName%>版本：</b></td>
          <td class="TableRow1"><input name="SoftVer" type="text" id="SoftVer" size="25" value="<%If isEdit Then Response.Write Rs("SoftVer")%>"></td>
        </tr>

        <tr>
          <td align="right" class="TableRow2"><b>软件运行环境：</b></td>
          <td colspan="3" class="TableRow1"><input name="RunSystem" type="text" size="60" value="<%If isEdit Then Response.Write Rs("RunSystem") Else Response.Write Channel_Setting(1) End If%>"><br>
<%
	Dim RunSystem
	RunSystem = Split(Channel_Setting(0), "|")
	For i = 0 To UBound(RunSystem)
		Response.Write "<a href='javascript:ToRunsystem(""" & Trim(RunSystem(i)) & """)'><u>" & Trim(RunSystem(i)) & "</u></a> | "
		If i = 10 Then Response.Write "<br>"
	Next
%>
		    </td>
        </tr>
	<tr>
          <td align="right" class="TableRow2"><b><%=sModuleName%>性质：</b></td>
          <td class="TableRow1" colspan="3">
<%
	Dim ArraySoftType
	ArraySoftType = Split(Channel_Setting(2), ",")
	Response.Write "<input name=""SoftType"" type=""text"" size=""10"" value="""
	If isEdit Then
		Response.Write Server.HTMLEncode(Rs("SoftType"))
	Else
		Response.Write Server.HTMLEncode(ArraySoftType(0))
	End If
	Response.Write """>"
	Response.Write " <select name=""ArraySoftType2""  onChange=""SoftType.value=this.value;"">"
	Response.Write " <option value=""" & ArraySoftType(0) & """>选择" & sModuleName & "类型</option>"
	For i = 0 To UBound(ArraySoftType)
		Response.Write " <option value=""" & ArraySoftType(i) & """>" & ArraySoftType(i) & "</option>"
	Next
	Response.Write " </select>&nbsp;"
	
	Dim ImpowerStr
	ImpowerStr = Split(Channel_Setting(3), ",")
	Response.Write "<input name=""impower"" type=""text"" size=""10"" value="""
	If isEdit Then
		Response.Write Server.HTMLEncode(Rs("impower"))
	Else
		Response.Write Server.HTMLEncode(ImpowerStr(0))
	End If
	Response.Write """>"
	Response.Write " <select name=""impower2""  onChange=""impower.value=this.value;"">"
	Response.Write " <option value=""" & ImpowerStr(0) & """>选择授权方式</option>"
	For i = 0 To UBound(ImpowerStr)
		Response.Write " <option value=""" & ImpowerStr(i) & """>" & ImpowerStr(i) & "</option>"
	Next
	Response.Write " </select>&nbsp;"

	Dim LanguagesStr
	LanguagesStr = Split(Channel_Setting(4), ",")
	Response.Write "<input name=""Languages"" type=""text"" size=""10"" value="""
	If isEdit Then
		Response.Write Server.HTMLEncode(Rs("Languages"))
	Else
		Response.Write Server.HTMLEncode(LanguagesStr(0))
	End If
	Response.Write """>"
	Response.Write " <select name=""Languages2""  onChange=""Languages.value=this.value;"">"
	Response.Write " <option value=""" & LanguagesStr(0) & """>请选择语言</option>"
	For i = 0 To UBound(LanguagesStr)
		Response.Write " <option value=""" & LanguagesStr(i) & """>" & LanguagesStr(i) & "</option>"
	Next
	Response.Write " </select>"
	
%>
	  </td>
	</tr>
	<tr>
          <td align="right" class="TableRow2"><b><%=sModuleName%>大小：</b></td>
          <td class="TableRow1">
<%
	Response.Write " <input type=""text"" name=""SoftSize"" id=""filesize"" size=""14"" onkeyup=if(isNaN(this.value))this.value='' value='"
	If isEdit Then
		Response.Write Trim(Rs("SoftSize"))
	Else
		Response.Write 0
	End If
	Response.Write "'> <input name=""SizeUnit"" type=""radio"" value=""KB"" checked>"
	Response.Write " KB"
	Response.Write " <input type=""radio"" name=""SizeUnit"" value=""MB"">"
	Response.Write " MB <font color=""#FF0000"">！</font>"
%>
          </td>
          <td align="right" class="TableRow2"><b><%=sModuleName%>星级：</b></td>
          <td class="TableRow1"><select name="star">
		<%If isEdit Then%>
          	<option value=5<%If Rs("star") = 5 Then Response.Write (" selected")%>>★★★★★</option>
          	<option value=4<%If Rs("star") = 4 Then Response.Write (" selected")%>>★★★★</option>
          	<option value=3<%If Rs("star") = 3 Then Response.Write (" selected")%>>★★★</option>
		<option value=2<%If Rs("star") = 2 Then Response.Write (" selected")%>>★★</option>
		<option value=1<%If Rs("star") = 1 Then Response.Write (" selected")%>>★</option>
		<%Else%>
		<option value=5>★★★★★</option>
          	<option value=4>★★★★</option>
          	<option value=3 selected>★★★</option>
		<option value=2>★★</option>
		<option value=1>★</option>
		<%End If%>
          </select></td>
	</tr>
	<tr>
          <td align="right" class="TableRow2"><b>联系方式：</b></td>
          <td class="TableRow1">
<%
	Response.Write "<input name=""Contact"" type=""text"" size=""33"" "
	If isEdit Then
		Response.Write "value="""
		Response.Write Rs("Contact")
		Response.Write """"
	End If
	Response.Write ">"
%>
	  </td>
          <td align="right" class="TableRow2"><b>程序主页：</b></td>
          <td class="TableRow1">
<%
	Response.Write "<input name=""Homepage"" type=""text"" size=""30"" "
	If isEdit Then
		Response.Write "value="""
		Response.Write Rs("Homepage")
		Response.Write """"
	End If
	Response.Write ">"
%>
	  </td>
	</tr>