📄 user_soft_code.asp
字号:
Response.Write " <input name='CopyFrom' type='text' id='CopyFrom' value='" & tmpCopyFrom & "' size='50' maxlength='100'>" & GetCopyFromList("User", ChannelID)
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'><strong>" & ChannelShortName & "类别：</strong></td>"
Response.Write " <td>"
Response.Write " <select name='SoftType' id='SoftType'>" & GetSoftType(rsSoft("SoftType")) & "</select> "
Response.Write " <strong>" & ChannelShortName & "语言：</strong> <select name='SoftLanguage' id='SoftLanguage'>" & GetSoftLanguage(rsSoft("SoftLanguage")) & "</select> "
Response.Write " <strong>授权形式：</strong> <select name='CopyrightType' id='CopyrightType'>" & GetCopyrightType(rsSoft("CopyrightType")) & "</select>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'><strong>" & ChannelShortName & "平台：</strong></td>"
Response.Write " <td>"
Response.Write " <input name='OperatingSystem' type='text' value='" & rsSoft("OperatingSystem") & "' size='80' maxlength='200'> <br>" & GetOperatingSystemList
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'><strong>" & ChannelShortName & "演示地址：</strong></td>"
Response.Write " <td><input name='DemoUrl' type='text' value='" & rsSoft("DemoUrl") & "' size='80' maxlength='200'></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'><strong>" & ChannelShortName & "注册地址：</strong></td>"
Response.Write " <td><input name='RegUrl' type='text' value='" & rsSoft("RegUrl") & "' size='80' maxlength='200'></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'><strong>解压密码：</strong></td>"
Response.Write " <td><input name='DecompressPassword' type='text' id='DecompressPassword' value='" & rsSoft("DecompressPassword") & "' size='30' maxlength='30'></td>"
Response.Write " </tr>"
End If
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'><strong>" & ChannelShortName & "图片：</strong></td>"
Response.Write " <td>"
Response.Write " <input name='SoftPicUrl' type='text' id='SoftPicUrl' value='" & rsSoft("SoftPicUrl") & "' size='80' maxlength='200'>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'></td>"
Response.Write " <td><table><tr><td>上传" & ChannelShortName & "图片：</td><td><iframe style='top:2px' id='UploadFiles' src='upload.asp?ChannelID=" & ChannelID & "&dialogtype=softpic' frameborder=0 scrolling=no width='450' height='25'></iframe></td></tr></table></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5' valign='middle'><strong>" & ChannelShortName & "简介：</strong></td>"
Response.Write " <td><textarea name='SoftIntro' cols='80' rows='10' id='SoftIntro' style='display:none'>" & Server.HTMLEncode(FilterJS(rsSoft("SoftIntro"))) & "</textarea>"
Response.Write " <iframe ID='editor' src='../editor.asp?ChannelID=" & ChannelID & "&ShowType=3&tContentid=SoftIntro' frameborder='1' scrolling='no' width='650' height='200' ></iframe>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'><strong>" & ChannelShortName & "地址：</strong></td>"
Response.Write " <td>"
Response.Write " <table width='100%' border='0' cellpadding='0' cellspacing='0'>"
Response.Write " <tr>"
Response.Write " <td>"
Response.Write " <input type='hidden' name='DownloadUrls' value=''>"
Response.Write " <select name='DownloadUrl' style='width:400;height:100' size='2' ondblclick='return ModifyUrl();'>"
Dim DownloadUrls, arrDownloadUrls, iTemp
DownloadUrls = rsSoft("DownloadUrl")
If InStr(DownloadUrls, "$$$") > 1 Then
arrDownloadUrls = Split(DownloadUrls, "$$$")
For iTemp = 0 To UBound(arrDownloadUrls)
Response.Write "<option value='" & arrDownloadUrls(iTemp) & "'>" & arrDownloadUrls(iTemp) & "</option>"
Next
Else
Response.Write "<option value='" & DownloadUrls & "'>" & DownloadUrls & "</option>"
End If
Response.Write " </select>"
Response.Write " </td>"
Response.Write " <td>"
Response.Write " <input type='button' name='addurl' value='添加外部地址' onclick='AddUrl();'><br>"
Response.Write " <input type='button' name='modifyurl' value='修改当前地址' onclick='return ModifyUrl();'><br>"
Response.Write " <input type='button' name='delurl' value='删除当前地址' onclick='DelUrl();'>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'><strong>上传" & ChannelShortName & "：</strong></td>"
Response.Write " <td>"
Response.Write " 系统提供的上传功能只适合上传比较小的" & ChannelShortName & "（如ASP源代码压缩包）。如果" & ChannelShortName & "比较大（2M以上），请先使用FTP上传，而不要使用系统提供的上传功能，以免上传出错或过度占用服务器的CPU资源。FTP上传后请将地址复制到下面的地址框中。<br>"
Response.Write " <iframe style='top:2px' ID='UploadFiles' src='upload.asp?ChannelID=" & ChannelID & "&dialogtype=soft' frameborder=0 scrolling=no width='450' height='25'></iframe>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'><strong>" & ChannelShortName & "大小：</strong></td>"
Response.Write " <td><input name='SoftSize' type='text' id='SoftSize' value='" & rsSoft("SoftSize") & "' size='10' maxlength='10'> K</td>"
Response.Write " </tr>"
'自定义字段
Dim rsField
Set rsField = Conn.Execute("select * from PE_Field where ChannelID=" & ChannelID & " or ChannelID=-2")
Do While Not rsField.EOF
If rsField("ShowOnForm") = True then
Call WriteFieldHTML(rsField("FieldName"), rsField("Title"), rsField("Tips"), rsField("FieldType"), rsSoft(Trim(rsField("FieldName"))), rsField("Options"), rsField("EnableNull"))
End If
rsField.MoveNext
Loop
Set rsField = Nothing
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>" & ChannelShortName & "状态：</td>"
Response.Write " <td>"
If rsSoft("Status") <= 0 Then
Response.Write "<Input Name='Status' Type='radio' Id='Status' Value='-1'"
If rsSoft("Status") = -1 Then
Response.Write " checked"
End If
Response.Write "> 草稿 "
Response.Write "<Input Name='Status' Type='radio' Id='Status' Value='0'"
If rsSoft("Status") = 0 Then
Response.Write "checked"
End If
Response.Write "> 投稿"
Else
If rsSoft("Status") < 3 Then
Response.Write "审核中"
Else
Response.Write "已经发布"
End If
End If
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " <p align='center'>"
Response.Write " <input name='Action' type='hidden' id='Action' value='SaveModify'>"
Response.Write " <input name='SoftID' type='hidden' id='SoftID' value='" & rsSoft("SoftID") & "'>"
Response.Write " <input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
Response.Write " <input name='Save' type='submit' value='保存修改结果' style='cursor:hand;'> "
Response.Write " <input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='User_Soft.asp?ChannelID=" & ChannelID & "&Action=Manage';"" style='cursor:hand;'>"
Response.Write " </p><br>"
Response.Write "</form>"
rsSoft.Close
Set rsSoft = Nothing
End Sub
Sub WriteFieldHTML(FieldName, Title, Tips, FieldType, strValue, Options, EnableNull)
Dim strEnableNull
If EnableNull = False Then
strEnableNull = " <font color='#FF0000'>*</font>"
End If
Response.Write "<tr class='tdbg'><td width='120' align='right' class='tdbg5'><b>" & Title & "：</b></td><td colspan='5'>"
Select Case FieldType
Case 1 '单行文本框
Response.Write "<input type='text' name='" & FieldName & "' size='80' maxlength='255' value='" & strValue & "'>" & strEnableNull
Case 2 '多行文本框
Response.Write "<textarea name='" & FieldName & "' cols='80' rows='10'>" & strValue & "</textarea>" & strEnableNull
Case 3 '下拉列表
Response.Write "<select name='" & FieldName & "'>"
Dim arrOptions, i
arrOptions = Split(Options, vbCrLf)
For i = 0 To UBound(arrOptions)
Response.Write "<option value='" & arrOptions(i) & "'"
If arrOptions(i) = strValue Then Response.Write " selected"
Response.Write ">" & arrOptions(i) & "</option>"
Next
Response.Write "</select>" & strEnableNull
Case 4, 5 '图片和文件
If strValue = "" Then
Response.Write "<input type='text' name='" & FieldName & "' size='40' maxlength='255' value='http://'>" & strEnableNull
Else
Response.Write "<input type='text' name='" & FieldName & "' size='40' maxlength='255' value='" & strValue & "'>" & strEnableNull
End If
Case 6 '日期
If strValue = "" Then
Response.Write "<input type='text' name='" & FieldName & "' size='20' maxlength='20' value='" & Now() & "'>" & strEnableNull
Else
Response.Write "<input type='text' name='" & FieldName & "' size='20' maxlength='20' value='" & strValue & "'>" & strEnableNull
End If
End Select
If IsNull(Tips) = False And Tips <> "" Then
Response.Write "<br>" & PE_HTMLEncode(Tips)
End If
Response.Write "</td></tr>"
End Sub
Sub SaveSoft()
If FoundInArr(arrClass_Input, ChannelDir & "none", ",") = True Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>对不起！您没有在" & ChannelName & "添加" & ChannelShortName & "的权限！</li><br><br>"
Exit Sub
End If
Dim rsSoft, sql
Dim trs, tAuthor
Dim SoftID, ClassID, SpecialID, SoftName, SoftVersion, SoftType, SoftLanguage, CopyrightType, OperatingSystem, Author, CopyFrom
Dim DemoUrl, RegUrl, SoftPicUrl, SoftIntro, Keyword, DecompressPassword, SoftSize, DownloadUrls, Inputer
Dim PresentExp, DefaultItemPoint, DefaultItemChargeType, DefaultItemPitchTime, DefaultItemReadTimes, DefaultItemDividePercent
SoftID = PE_CLng(Trim(Request.Form("SoftID")))
ClassID = PE_CLng(Trim(Request.Form("ClassID")))
SpecialID = PE_CLng(Trim(Request.Form("SpecialID")))
SoftName = Trim(Request.Form("SoftName"))
SoftVersion = Trim(Request.Form("SoftVersion"))
Keyword = Trim(Request.Form("Keyword"))
SoftType = PE_HTMLEncode(Trim(Request.Form("SoftType")))
SoftLanguage = PE_HTMLEncode(Trim(Request.Form("SoftLanguage")))
CopyrightType = PE_HTMLEncode(Trim(Request.Form("CopyrightType")))
OperatingSystem = PE_HTMLEncode(Trim(Request.Form("OperatingSystem")))
Author = PE_HTMLEncode(Trim(Request.Form("Author")))
CopyFrom = PE_HTMLEncode(Trim(Request.Form("CopyFrom")))
DemoUrl = PE_HTMLEncode(Trim(Request.Form("DemoUrl")))
RegUrl = PE_HTMLEncode(Trim(Request.Form("RegUrl")))
SoftPicUrl = PE_HTMLEncode(Trim(Request.Form("SoftPicUrl")))
SoftIntro = ReplaceBadUrl(FilterJS(Trim(Request.Form("SoftIntro"))))
DecompressPassword = PE_HTMLEncode(Trim(Request.Form("DecompressPassword")))
SoftSize = PE_CLng(Trim(Request.Form("SoftSize")))
DownloadUrls = PE_HTMLEncode(Trim(Request.Form("DownloadUrls")))
Inputer = UserName
Status = PE_CLng(Trim(Request.Form("Status")))
If ClassID <= 0 Then
FoundErr = True
ErrMsg = ErrMsg & "<li>未指定所属栏目，或者指定的栏目不允许此操作！</li>"
Else
Dim tClass
Set tClass = Conn.Execute("select ClassName,ClassType,Depth,ParentID,ParentPath,Child,EnableAdd,PresentExp,DefaultItemPoint,DefaultItemChargeType,DefaultItemPitchTime,DefaultItemReadTimes,DefaultItemDividePercent from PE_Class where ClassID=" & ClassID)
If tClass.BOF And tClass.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<li>找不到指定的栏目！</li>"
Else
ClassName = tClass("ClassName")
Depth = tClass("Depth")
ParentPath = tClass("ParentPath")
ParentID = tClass("ParentID")
Child = tClass("Child")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -