📄 admin_softgather.asp
字号:
.Write " <td width=""23%"" align=""right"" nowrap class=""TableRow1""><strong>项目名称：</strong></td> " & vbCrLf
.Write " <td width=""77%"" class=""TableRow1""><input name=""ItemName"" type=""text"" id=""ItemName"" size=""30"""
If isEdit Then .Write " value=""" & Rs("ItemName") & """"
.Write "></td> " & vbCrLf
.Write " </tr> " & vbCrLf
.Write " <tr> " & vbCrLf
.Write " <td align=""right"" class=""TableRow2""><strong>目标站点URL：</strong></td> " & vbCrLf
.Write " <td class=""TableRow2""><input name=""SiteUrl"" type=""text"" id=""SiteUrl"" size=""30"""
If isEdit Then
.Write " value=""" & Rs("SiteUrl") & """"
Else
.Write " value=""http://"""
End If
.Write "></td> " & vbCrLf
.Write " </tr> " & vbCrLf
.Write " <tr> " & vbCrLf
.Write " <td align=""right"" class=""TableRow1""><strong>所属分类：</strong></td> " & vbCrLf
.Write " <td class=""TableRow1""><select name=""ClassID"" size=""1"" id=""ClassID"">" & vbCrLf
sClassSelect = Newasp.LoadSelectClass(ChannelID)
If isEdit Then
sClassSelect = Replace(sClassSelect, "{ClassID=" & Rs("ClassID") & "}", "selected")
End If
.Write sClassSelect
.Write " </select></td> " & vbCrLf
.Write " </tr> " & vbCrLf
.Write " <tr> " & vbCrLf
.Write " <td align=""right"" class=""TableRow2""><strong>所属专题：</strong></td> " & vbCrLf
.Write " <td class=""TableRow2""><select name=""SpecialID"" size=""1"" id=""SpecialID"">" & vbCrLf
.Write " <option value=""0"">不指定专题</option>" & vbCrLf
Set RsObj = Newasp.Execute("SELECT SpecialID,SpecialName FROM NC_Special Where ChannelID = " & ChannelID & " ORDER BY orders")
Do While Not RsObj.EOF
.Write " <option value=""" & RsObj("SpecialID") & """"
If isEdit Then
If Rs("SpecialID") = RsObj("SpecialID") Then .Write " selected"
End If
.Write ">"
.Write RsObj("SpecialName")
.Write "</option>" & vbCrLf
RsObj.MoveNext
Loop
Set RsObj = Nothing
.Write " </select></td> " & vbCrLf
.Write " </tr> " & vbCrLf
.Write " <tr> " & vbCrLf
.Write " <td align=""right"" class=""TableRow1""><strong>关闭采集项目：</strong></td> " & vbCrLf
.Write " <td class=""TableRow1""><input name=""StopItem"" type=""radio"" value=""0"""
If isEdit Then
If Rs("StopItem") = 0 Then .Write " checked"
Else
.Write " checked"
End If
.Write "> 打开 " & vbCrLf
.Write " <input type=""radio"" name=""StopItem"" value=""1"""
If isEdit Then
If Rs("StopItem") > 0 Then .Write " checked"
End If
.Write "> 关闭</td> " & vbCrLf
.Write " </tr> " & vbCrLf
.Write " <tr> " & vbCrLf
.Write " <td align=""right"" class=""TableRow2""><strong>目标文档编码：</strong></td> " & vbCrLf
.Write " <td class=""TableRow2""><input name=""Encoding"" type=""text"" id=""Encoding"" size=""15"""
If isEdit Then
.Write " value=""" & Rs("Encoding") & """"
Else
.Write " value=""GB2312"""
End If
.Write "> " & vbCrLf
.Write " <span class=""style2"">请选择编码→</span> <select name=""selEncoding"" size=""1"" onChange=""Encoding.value=this.value;"">" & vbCrLf
.Write " <option>请选择编码</option>" & vbCrLf
.Write " <option value=""GB2312"">GB2312</option>" & vbCrLf
.Write " <option value=""UTF-8"">UTF-8</option>" & vbCrLf
.Write " <option value=""BIG5"">BIG5</option>" & vbCrLf
'.Write " <option value=""AUTOCODING"">自动编码</option>" & vbCrLf
.Write " </select>" & vbCrLf
.Write " </td> " & vbCrLf
.Write " </tr> " & vbCrLf
.Write " <tr> " & vbCrLf
.Write " <td align=""right"" class=""TableRow1""><strong>是否下载软件到本地：</strong></td> " & vbCrLf
.Write " <td class=""TableRow1""><input name=""IsDown"" type=""radio"" value=""0"""
If isEdit Then
If Rs("IsDown") = 0 Then .Write " checked"
Else
.Write " checked"
End If
.Write "> 否 " & vbCrLf
.Write " <input type=""radio"" name=""IsDown"" value=""1"""
If isEdit Then
If Rs("IsDown") > 0 Then .Write " checked"
End If
.Write "> 是 </td> " & vbCrLf
.Write " </tr> " & vbCrLf
.Write " <tr> " & vbCrLf
.Write " <td align=""right"" class=""TableRow2""><strong>选择下载服务器：</strong></td> " & vbCrLf
.Write " <td class=""TableRow2"">" & vbCrLf
SelDownServer (downid)
.Write " <font color='blue'>* 如果软件下载到本地，建议选择或<a href='admin_Server.asp?action=add&ChannelID=" & ChannelID & "'><font color='red'>添加下载服务器</font></a></font></td> " & vbCrLf
.Write " </tr>" & vbCrLf
.Write " <tr>" & vbCrLf
.Write " <td align=""right"" class=""TableRow1""><strong>获取最多下载地址数：</strong></td>" & vbCrLf
.Write " <td class=""TableRow1""><input name=""MaxAddress"" type=""text"" id=""MaxAddress"" size=""10"" maxlength=""5"""
If isEdit Then
.Write " value=""" & Rs("MaxAddress") & """"
Else
.Write " value=""1"""
End If
.Write "> <font color='blue'>* 如果文件下载到本地，这里是下载地址序号，0-9。</font></td>" & vbCrLf
.Write " </tr>" & vbCrLf
.Write " <tr>" & vbCrLf
.Write " <td align=""right"" class=""TableRow2""><strong>是否自动归类：</strong></td>" & vbCrLf
.Write " <td class=""TableRow2""><input name=""AutoClass"" type=""radio"" value=""0"""
If isEdit Then
If Rs("AutoClass") = 0 Then .Write " checked"
Else
.Write " checked"
End If
.Write " onClick=""RetuneClassID.style.display='none';""> 否 " & vbCrLf
.Write " <input type=""radio"" name=""AutoClass"" value=""1"""
If isEdit Then
If Rs("AutoClass") > 0 Then .Write " checked"
End If
.Write " onClick=""RetuneClassID.style.display='';""> 是</td>" & vbCrLf ' disabled
.Write " </tr>" & vbCrLf
.Write " <tr id=""RetuneClassID"""
If isEdit Then
If Rs("AutoClass") = 0 Then .Write " style=""display:none"""
Else
.Write " style=""display:none"""
End If
.Write ">" & vbCrLf
.Write " <td align=""right"" class=""TableRow2""><strong>分类替换操作：</strong></td>" & vbCrLf
.Write " <td class=""TableRow2""><table border=""0"" cellpadding=""3""><tr><td><select name=""RetuneClass"" id=""RetuneClass"" style=""width:300;height:100"" size=""2"" ondblclick=""return ModifyCalss();"">" & vbCrLf
If isEdit Then
If Not IsNull(Rs("RetuneClass")) Then
ArrayRetuneClass = Split(Rs("RetuneClass"), "$$$")
For i = 0 To UBound(ArrayRetuneClass)
If Len(ArrayRetuneClass(i)) > 3 Then
.Write " <option value=""" & ArrayRetuneClass(i) & """>" & ArrayRetuneClass(i) & "</option>" & vbCrLf
End If
Next
End If
End If
.Write " " & vbCrLf
.Write " </select></td><td>" & vbCrLf
.Write " <input type=""button"" name=""addclass"" value=""添加替换分类"" class=""button"" onclick=""AddClass();""><br><br style=""overflow: hidden; line-height: 5px"">" & vbCrLf
.Write " <input type=""button"" name=""modifyclass"" value=""修改当前分类"" class=""button"" onclick=""return ModifyClass();""><br><br style=""overflow: hidden; line-height: 5px"">" & vbCrLf
.Write " <input type=""button"" name=""delclass"" value=""删除当前分类"" class=""button"" onclick=""DelClass();""><br>" & vbCrLf
.Write " <input type=""hidden"" name=""ClassList"" value="""">" & vbCrLf
.Write " </td><tr></table>" & vbCrLf
.Write " </td>" & vbCrLf
.Write " </tr>" & vbCrLf
.Write " <tr>" & vbCrLf
.Write " <td align=""right"" class=""TableRow1""><strong>日期路径格式：</strong></td>" & vbCrLf
.Write " <td class=""TableRow1""><select name=""PathForm"" size=""1"" id=""PathForm"">" & vbCrLf
.Write " <option value=""0"""
If isEdit Then
If Rs("PathForm") = 0 Then .Write " selected"
End If
.Write ">不使用日期目录</option>" & vbCrLf
.Write " <option value=""1"""
If isEdit Then
If Rs("PathForm") = 1 Then .Write " selected"
Else
.Write " selected"
End If
.Write ">2005-8</option>" & vbCrLf
.Write " <option value=""2"""
If isEdit Then
If Rs("PathForm") = 2 Then .Write " selected"
End If
.Write ">2005_8</option>" & vbCrLf
.Write " <option value=""3"""
If isEdit Then
If Rs("PathForm") = 3 Then .Write " selected"
End If
.Write ">20058</option>" & vbCrLf
.Write " <option value=""4"""
If isEdit Then
If Rs("PathForm") = 4 Then .Write " selected"
End If
.Write ">2005</option>" & vbCrLf
.Write " <option value=""5"""
If isEdit Then
If Rs("PathForm") = 5 Then .Write " selected"
End If
.Write ">2005/8</option>" & vbCrLf
.Write " <option value=""6"""
If isEdit Then
If Rs("PathForm") = 6 Then .Write " selected"
End If
.Write ">2005/8/8</option>" & vbCrLf
.Write " <option value=""7"""
If isEdit Then
If Rs("PathForm") = 7 Then .Write " selected"
End If
.Write ">200588</option>" & vbCrLf
.Write " </select></td>" & vbCrLf
.Write " </tr>" & vbCrLf
.Write " <tr>" & vbCrLf
.Write " <td align=""right"" class=""TableRow2""><strong>保存软件的路径：</strong></td>" & vbCrLf
.Write " <td class=""TableRow2""><input name=""SaveFilePath"" type=""text"" id=""SaveFilePath"" size=""45"""
If isEdit Then
.Write " value=""" & Rs("SaveFilePath") & """"
Else
.Write " value=""/soft/UploadFile/"""
End If
.Write ">" & vbCrLf
.Write " <font color=""blue"">* 可以使用相对路径或者绝对路径</font></td> " & vbCrLf
.Write " </tr>" & vbCrLf
.Write " <tr>" & vbCrLf
.Write " <td align=""right"" class=""TableRow1""><strong>是否自动更改文件名称：</strong></td>" & vbCrLf
.Write " <td class=""TableRow1""><input name=""AutoRename"" type=""radio"" value=""0"""
If isEdit Then
If Rs("AutoRename") = 0 Then .Write " checked"
Else
.Write " checked"
End If
.Write "> 否 " & vbCrLf
.Write " <input type=""radio"" name=""AutoRename"" value=""1"""
If isEdit Then
If Rs("AutoRename") > 0 Then .Write " checked"
End If
.Write "> 是</td>" & vbCrLf
.Write " </tr>" & vbCrLf
.Write " <tr>" & vbCrLf
.Write " <td align=""right"" class=""TableRow2""><strong>是否显示为最新时间：</strong></td>" & vbCrLf
.Write " <td class=""TableRow2""><input name=""IsNowTime"" type=""radio"" value=""0"""
If isEdit Then
If Rs("IsNowTime") = 0 Then .Write " checked"
Else
.Write " checked"
End If
.Write "> 否 " & vbCrLf
.Write " <input type=""radio"" name=""IsNowTime"" value=""1"""
If isEdit Then
If Rs("IsNowTime") > 0 Then .Write " checked"
End If
.Write "> 是</td>" & vbCrLf
.Write " </tr>" & vbCrLf
.Write " <tr>" & vbCrLf
.Write " <td align=""right"" class=""TableRow1""><strong>初始点击数：</strong></td>" & vbCrLf
.Write " <td class=""TableRow1""><input name=""AllHits"" type=""text"" id=""AllHits"" size=""10"""
If isEdit Then
.Write " value=""" & Rs("AllHits") & """"
Else
.Write " value=""0"""
End If
.Write ">" & vbCrLf
.Write " </tr>" & vbCrLf
.Write " <tr>" & vbCrLf
.Write " <td align=""right"" class=""TableRow2""><strong>软件星级：</strong></td>" & vbCrLf
.Write " <td class=""TableRow2""><select name=""star"" size=""1"" id=""star"">" & vbCrLf
.Write " <option value=""5"""
If isEdit Then
If Rs("star") = 5 Then .Write " selected"
End If
.Write ">★★★★★</option>" & vbCrLf
.Write " <option value=""4"""
If isEdit Then
If Rs("star") = 4 Then .Write " selected"
End If
.Write ">★★★★</option>" & vbCrLf
.Write " <option value=""3"""
If isEdit Then
If Rs("star") = 3 Then .Write " selected"
Else
.Write " selected"
End If
.Write ">★★★</option>" & vbCrLf
.Write " <option value=""2"""
If isEdit Then
If Rs("star") = 2 Then .Write " selected"
End If
.Write ">★★</option>" & vbCrLf
.Write " <option value=""1"""
If isEdit Then
If Rs("star") = 1 Then .Write " selected"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -