📄 admin_config.asp
字号:
<td class="TableRow2">
<input type="text" name="UploadFileSize" size="15" value="<%=Newasp.UploadFileSize%>"> <b>KB</></td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">上传文件类型： 请用“|”分开</div></td>
<td class="TableRow1">
<input type="text" name="UploadFileType" size="60" value="<%=Newasp.UploadFileType%>"></td>
</tr>
<tr>
<td class="TableRow2"><div class="divbody">是否关闭友情连接申请：</div></td>
<td class="TableRow2">
<input type="radio" name="StopApplyLink" value="1"<%If CInt(Newasp.StopApplyLink) = 1 Then Response.Write (" checked")%>> 关闭
<input type="radio" name="StopApplyLink" value="0"<%If CInt(Newasp.StopApplyLink) = 0 Then Response.Write (" checked")%>> 打开</td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">FSO组件的名称：<br>
FSO默认名称：Scripting.FileSystemObject</div></td>
<td class="TableRow1">
<input type="text" name="FSO_ScriptName" size="35" value="<%=Newasp.FSO_ScriptName%>"><br>
某些网站为了安全，将FSO组件的名称进行更改以达到禁用FSO的目的。如果你的网站是这样做的，请在此输入更改过的名称。</div></td>
</tr>
<tr>
<td class="TableRow2"><div class="divbody">初始标题颜色：</div><br>
每个颜色的值请的“,”分开</td>
<td class="TableRow2"><textarea rows="3" name="InitTitleColor" cols="60"><%=Newasp.InitTitleColor%></textarea></td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">请选择在线支付功能：</div></td>
<td class="TableRow1">
<input type="radio" name="StopBankPay" value="0"<%If CInt(Newasp.StopBankPay) = 0 Then Response.Write (" checked")%>> 关闭在线支付
<input type="radio" name="StopBankPay" value="1"<%If CInt(Newasp.StopBankPay) = 1 Then Response.Write (" checked")%>> NPS 在线支付
<input type="radio" name="StopBankPay" value="2"<%If CInt(Newasp.StopBankPay) = 2 Then Response.Write (" checked")%>> 网银在线支付
<br><font color=blue>* 如果你还没开通NPS在线支付，请<a href="http://www.nps.cn/merchant/join_agreement.jsp" target="_blank"><font color=RED><strong>点此开通NPS在线支付</strong></font></a>吧</font>
<br><font color=blue>* 如果你还没开通网银在线支付，请<a href="http://www.chinaebank.cn/" target="_blank"><font color=RED><strong>点此开通中国网银在线支付</strong></font></a>吧</font>
</td>
</tr>
<tr>
<td class="TableRow2"><div class="divbody">在线支付 ID：（<a href="http://www.nps.cn/" target="_blank">NPS</a>或者<a href="http://www.chinaebank.cn/" target="_blank">网银在线</a>ID）</div></td>
<td class="TableRow2">
<input type="text" name="ChinaeBank1" size="30" value="<%=ChinaeBankPay(0)%>"></td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">在线支付KEY：（<a href="http://www.nps.cn/" target="_blank">NPS</a>或者<a href="http://www.chinaebank.cn/" target="_blank">网银在线</a>密钥）</div></td>
<td class="TableRow1">
<input type="password" name="ChinaeBank2" size="30" value="<%=ChinaeBankPay(1)%>"></td>
</tr>
<tr>
<td class="TableRow2"><div class="divbody">在线支付手续费： 单位（百分比）</div></td>
<td class="TableRow2">
<input type="text" name="ChinaeBank3" size="5" value="<%=ChinaeBankPay(2)%>"> ％
<font color=blue>* 如果不对用户增加相应的手续费请输入0</font></td>
</tr>
</table></fieldset>
<br>
<fieldset style="cursor: default"><legend> 图片水印设置<a name="setting6"></a>[<a href="#top">顶部</a>]</legend><table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder2">
<tr>
<td class="TableRow1"><u>选取预览图片组件</u></td>
<td class="TableRow1"><select size="1" name="PreviewSetting" onChange="chkselect(options[selectedIndex].value,'know3');">
<option value="999"<%If CInt(PreviewSetting(0)) = 999 Then Response.Write (" selected")%>>关闭预览图片功能</option>
<option value="0"<%If CInt(PreviewSetting(0)) = 0 Then Response.Write (" selected")%>>CreatePreviewImage组件</option>
<option value="1"<%If CInt(PreviewSetting(0)) = 1 Then Response.Write (" selected")%>>AspJpeg组件</option>
<option value="2"<%If CInt(PreviewSetting(0)) = 2 Then Response.Write (" selected")%>>SA-ImgWriter组件</option>
</select><div id="know3"></div></td>
</tr>
<tr>
<td class="TableRow2"><u>生成预览图片大小规则选项</u></td>
<td class="TableRow2"><select size="1" name="PreviewSetting">
<option value="0"<%If CInt(PreviewSetting(1)) = 0 Then Response.Write (" selected")%>>固定大小</option>
<option value="1"<%If CInt(PreviewSetting(1)) = 1 Then Response.Write (" selected")%>>等比例缩小</option>
</select></td>
</tr>
<tr>
<td class="TableRow1"><u>图片水印设置开关</u></td>
<td class="TableRow1"><select size="1" name="PreviewSetting">
<option value="0"<%If CInt(PreviewSetting(2)) = 0 Then Response.Write (" selected")%>>关闭水印效果</option>
<option value="1"<%If CInt(PreviewSetting(2)) = 1 Then Response.Write (" selected")%>>水印文字效果</option>
<option value="2"<%If CInt(PreviewSetting(2)) = 2 Then Response.Write (" selected")%>>水印图片效果</option>
</select></td>
</tr>
<tr>
<td class="TableRow2"><u>生成预览图片大小设置(宽度|高度)</u><br></td>
<td class="TableRow2">
宽度：<input type="text" name="PreviewSetting" size="10" value="<%=Trim(PreviewSetting(3))%>"> 象素 |
高度：<input type="text" name="PreviewSetting" size="10" value="<%=Trim(PreviewSetting(4))%>"> 象素
</td>
</tr>
<tr>
<td class="TableRow1"><u>上传图片添加水印文字信息（可为空或0）</u><br></td>
<td class="TableRow1"><input type="text" name="PreviewSetting" size="30" value="<%=Trim(PreviewSetting(5))%>"></td>
</tr>
<tr>
<td class="TableRow2"><u>上传添加水印字体大小</u><br></td>
<td class="TableRow2"><input type="text" name="PreviewSetting" size="10" value="<%=Trim(PreviewSetting(6))%>"> <b>px<b></td>
</tr>
<tr>
<td class="TableRow1"><u>上传添加水印字体颜色</u><br></td>
<td class="TableRow1"><input type="text" name="PreviewSetting" id="PreviewSetting7" size="10" value="<%=Trim(PreviewSetting(7))%>">
<img border=0 src="images/rect.gif" align="absMiddle" style="cursor:pointer;background-Color:<%=Trim(PreviewSetting(7))%>;" onclick="Getcolor(this,'PreviewSetting7');" title="选取颜色!"></td>
</tr>
<tr>
<td class="TableRow2"><u>上传添加水印所用字体</u></td>
<td class="TableRow2"><select size="1" name="PreviewSetting">
<option value="宋体"<%If Trim(PreviewSetting(8)) = "宋体" Then Response.Write (" selected")%>>宋体</option>
<option value="楷体_GB2312"<%If Trim(PreviewSetting(8)) = "楷体_GB2312" Then Response.Write (" selected")%>>楷体</option>
<option value="新宋体"<%If Trim(PreviewSetting(8)) = "新宋体" Then Response.Write (" selected")%>>新宋体</option>
<option value="黑体"<%If Trim(PreviewSetting(8)) = "黑体" Then Response.Write (" selected")%>>黑体</option>
<option value="隶书"<%If Trim(PreviewSetting(8)) = "隶书" Then Response.Write (" selected")%>>隶书</option>
<option value="Arial"<%If Trim(PreviewSetting(8)) = "Arial" Then Response.Write (" selected")%>>Arial</option>
<option value="Georgia"<%If Trim(PreviewSetting(8)) = "Georgia" Then Response.Write (" selected")%>>Georgia</option>
<option value="Impact"<%If Trim(PreviewSetting(8)) = "Impact" Then Response.Write (" selected")%>>Impact</option>
<option value="Tahoma"<%If Trim(PreviewSetting(8)) = "Tahoma" Then Response.Write (" selected")%>>Tahoma</option>
<option value="Stencil"<%If Trim(PreviewSetting(8)) = "Stencil" Then Response.Write (" selected")%>>Stencil</option>
<option value="Verdana"<%If Trim(PreviewSetting(8)) = "Verdana" Then Response.Write (" selected")%>>Verdana</option>
</select></td>
</tr>
<tr>
<td class="TableRow1"><u>上传水印字体是否粗体</u></td>
<td class="TableRow1"><select size="1" name="PreviewSetting">
<option value="0"<%If CInt(PreviewSetting(9)) = 0 Then Response.Write (" selected")%>>≡否≡</option>
<option value="1"<%If CInt(PreviewSetting(9)) = 1 Then Response.Write (" selected")%>>≡是≡</option>
</select></td>
</tr>
<tr>
<td class="TableRow2"><u>上传图片添加水印LOGO图片信息</u><br>填写LOGO的图片相对路径</td>
<td class="TableRow2"><input type="text" name="PreviewSetting" size="30" value="<%=Trim(PreviewSetting(10))%>"></td>
</tr>
<tr>
<td class="TableRow1"><u>上传图片添加水印透明度</u><br></td>
<td class="TableRow1"><input type="text" name="PreviewSetting" size="10" value="<%=Trim(PreviewSetting(11))%>"> <font color=blue>如50%请填写0.5</font></td>
</tr>
<tr>
<td class="TableRow2"><u>水印图片去除底色</U><br>保留为空则水印图片不去除底色</td>
<td class="TableRow2"><input type="text" name="PreviewSetting" id="PreviewSetting12" size="10" value="<%=Trim(PreviewSetting(12))%>">
<img border=0 src="images/rect.gif" align="absMiddle" style="cursor:pointer;background-Color:<%=Trim(PreviewSetting(12))%>;" onclick="Getcolor(this,'PreviewSetting12');" title="选取颜色!"></td>
</tr>
<tr>
<td class="TableRow1"><u>水印文字或图片的长宽区域定义</u><br>如水印图片的宽度和高度</td>
<td class="TableRow1">
宽度：<input type="text" name="PreviewSetting" size="10" value="<%=Trim(PreviewSetting(13))%>"> 象素 |
高度：<input type="text" name="PreviewSetting" size="10" value="<%=Trim(PreviewSetting(14))%>"> 象素
</td>
</tr>
<tr>
<td class="TableRow2"><u>上传图片添加水印LOGO位置坐标</u></td>
<td class="TableRow2"><select size="1" name="PreviewSetting">
<option value="0"<%If CInt(PreviewSetting(15)) = 0 Then Response.Write (" selected")%>>≡左上≡</option>
<option value="1"<%If CInt(PreviewSetting(15)) = 1 Then Response.Write (" selected")%>>≡左下≡</option>
<option value="2"<%If CInt(PreviewSetting(15)) = 2 Then Response.Write (" selected")%>>≡居中≡</option>
<option value="3"<%If CInt(PreviewSetting(15)) = 3 Then Response.Write (" selected")%>>≡右上≡</option>
<option value="4"<%If CInt(PreviewSetting(15)) = 4 Then Response.Write (" selected")%>>≡右下≡</option>
</select></td>
</tr>
</table></fieldset>
<br>
<fieldset style="cursor: default"><legend> 过滤字符设置<a name="setting5"></a>[<a href="#top">顶部</a>]</legend><table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder2">
<tr>
<td class="TableRow1" width="35%"><div class="divbody">过滤字符：<br>
请用“|”分开</div></td>
<td class="TableRow1"><textarea rows="5" name="Badwords" cols="60"><%=Newasp.Badwords%></textarea></td>
</tr>
<tr>
<td class="TableRow2"><div class="divbody">过滤后的字符：<br>
请用“|”分开</div></td>
<td class="TableRow2"><textarea rows="5" name="Badwordr" cols="60"><%=Newasp.Badwordr%></textarea></td>
</tr>
</table></fieldset>
</td>
</tr>
<tr>
<td class="TableRow1" align="center">
<input type="submit" value="保存设置" name="B1" class=Button> <font color=red>按Ctrl+Enter直接提交</font></td>
</tr></form>
</table>
</div>
<%
Dim InstalledObjects(10)
Dim i
Response.Write "<div id=""Issubport0"" style=""display:none"">请选择EMAIL组件！</div>" & vbCrLf
Response.Write "<div id=""Issubport999"" style=""display:none"">请选择上传组件！</div>" & vbCrLf
InstalledObjects(1) = "JMail.Message" 'JMail 4.3
InstalledObjects(2) = "CDONTS.NewMail" 'CDONTS
InstalledObjects(3) = "Persits.MailSender" 'ASPEMAIL
'-----------------------
InstalledObjects(4) = "Adodb.Stream" 'Adodb.Stream
InstalledObjects(5) = "Persits.Upload" 'Aspupload3.0
InstalledObjects(6) = "SoftArtisans.FileUp" 'SA-FileUp 4.0
InstalledObjects(7) = "DvFile.Upload" 'DvFile-Up V1.0
'-----------------------
InstalledObjects(8) = "CreatePreviewImage.cGvbox" 'CreatePreviewImage
InstalledObjects(9) = "Persits.Jpeg" 'AspJpeg
InstalledObjects(10) = "SoftArtisans.ImageGen" 'SoftArtisans ImgWriter V1.21
For i = 1 To 10
Response.Write "<div id=""Issubport" & i & """ style=""display:none"">"
If Not IsObjInstalled(InstalledObjects(i)) Then
Response.Write "<b>×</b>服务器不支持!"
Else
Response.Write "<font color=red><b>√</b>服务器支持!</font>"
End If
Response.Write "</div>"
Next
Response.Write "<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf
Response.Write "<!--" & vbCrLf
Response.Write "function chkselect(s,divid)" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write "var divname='Issubport';" & vbCrLf
Response.Write "var chkreport;" & vbCrLf
Response.Write "s=Number(s)" & vbCrLf
Response.Write "if (divid==""know1"")" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write "divname=divname+s;" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "if (divid==""know2"")" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write "s+=4;" & vbCrLf
Response.Write "if (s==1003){s=999;}" & vbCrLf
Response.Write "divname=divname+s;" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "if (divid==""know3"")" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write "s+=8;" & vbCrLf
Response.Write "if (s==1007){s=999;}" & vbCrLf
Response.Write "divname=divname+s;" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "document.getElementById(divid).innerHTML=divname;" & vbCrLf
Response.Write "chkreport=document.getElementById(divname).innerHTML;" & vbCrLf
Response.Write "document.getElementById(divid).innerHTML=chkreport;" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "//-->"
Response.Write "</SCRIPT>" & vbCrLf
End Sub
Sub SaveConfig()
Dim strChinaeBank
If Len(Request.Form("SiteName")) = 0 Or Len(Request.Form("SiteName")) => 50 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>网站名称不能为空或者超过50个字符！</li>"
End If
If Len(Request.Form("keywords")) = 0 Or Len(Request.Form("keywords")) => 250 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>站点关键字不能为空或者超过250个字符！</li>"
End If
If Len(Request.Form("StopReadme")) = 0 Or Len(Request.Form("StopReadme")) => 250 Then
FoundErr = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -