📄 admin_sysconfig.asp
字号:
<OPTION value="Georgia" <%If ClsPub.TW_Config(32)="Georgia" Then Response.Write "Selected"%>>Georgia</OPTION>
<OPTION value="Impact" <%If ClsPub.TW_Config(32)="Impact" Then Response.Write "Selected"%> >Impact</OPTION>
<OPTION value="Tahoma" <%If ClsPub.TW_Config(32)="Tahoma" Then Response.Write "Selected"%>>Tahoma</OPTION>
<OPTION value="Times New Roman" <%If ClsPub.TW_Config(32)="Times New Roman" Then Response.Write "Selected"%>>Times New Roman</OPTION>
<OPTION value="Trebuchet MS" <%If ClsPub.TW_Config(32)="Trebuchet MS" Then Response.Write "Selected"%>>Trebuchet MS</OPTION>
<OPTION value="Script MT Bold" <%If ClsPub.TW_Config(32)="Script MT Bold" Then Response.Write "Selected"%>>Script MT Bold</OPTION>
<OPTION value="Stencil" <%If ClsPub.TW_Config(32)="Stencil" Then Response.Write "Selected"%>>Stencil</OPTION>
<OPTION value="Verdana" <%If ClsPub.TW_Config(32)="Verdana" Then Response.Write "Selected"%>>Verdana</OPTION>
<OPTION value="Lucida Console" <%If ClsPub.TW_Config(32)="Lucida Console" Then Response.Write "Selected"%>>Lucida Console</OPTION>
</SELECT>
</td>
</tr>
<tr style="display:none;"> <td class="tablerow2"Highlight><U>上传水印字体是否粗体:</U></td>
<td class="tablerow2"Highlight>
<SELECT name="Setting33" id="Setting33">
<OPTION value="0" <%If Clng(ClsPub.TW_Config(33))=0 Then Response.Write "Selected"%>>否</OPTION>
<OPTION value="1" <%If Clng(ClsPub.TW_Config(33))=1 Then Response.Write "Selected"%>>是</OPTION>
</SELECT>
</td>
</tr>
<!-- 上传图片添加水印LOGO图片定义 -->
<tr style="display:none;"> <td class="tablerow2"><U>上传图片添加水印LOGO图片信息（可为空或0）:</U></td>
<td class="tablerow2">
<INPUT TYPE="text" NAME="Setting34" size=40 value="<%=ClsPub.TW_Config(34)%>">
</td>
</tr>
<tr style="display:none;"> <td class="tablerow2"Highlight><U>上传图片添加水印透明度:</U></td>
<td class="tablerow2"Highlight>
<INPUT TYPE="text" NAME="Setting35" size=10 value="<%=ClsPub.TW_Config(35)%>"> 如60%请填写0.6
</td>
</tr>
<tr style="display:none;"> <td class="tablerow2"Highlight><U>水印图片去除底色:</U><br>保留为空则水印图片不去除底色。</td>
<td class="tablerow2"Highlight>
<INPUT TYPE="text" NAME="Setting36" ID="Setting36" size=10 value="<%=ClsPub.TW_Config(36)%>">
<img border=0 src="Images/rect.gif" style="cursor:pointer;background-Color:<%=ClsPub.TW_Config(36)%>;" onClick="Getcolor(this,'Setting36');" title="选取颜色!">
</td>
</tr>
<tr style="display:none;"> <td class="tablerow2"><U>水印文字或图片的长宽区域定义:</U><br>如水印图片的宽度和高度。</td>
<td class="tablerow2">
宽度：<INPUT TYPE="text" NAME="Setting37" size=10 value="<%=ClsPub.TW_Config(37)%>"> 象素
高度：<INPUT TYPE="text" NAME="Setting38" size=10 value="<%=ClsPub.TW_Config(38)%>"> 象素
</td>
</tr>
<tr style="display:none;">
<td class="tablerow2"Highlight ><U>上传图片添加水印LOGO位置坐标 :</U></td>
<td class="tablerow2"Highlight>
<SELECT NAME="Setting39" id="Setting39">
<option value="0" <%If Clng(ClsPub.TW_Config(39))=0 Then Response.Write "Selected"%>>左上</option>
<option value="1" <%If Clng(ClsPub.TW_Config(39))=1 Then Response.Write "Selected"%>>左下</option>
<option value="2" <%If Clng(ClsPub.TW_Config(39))=2 Then Response.Write "Selected"%>>居中</option>
<option value="3" <%If Clng(ClsPub.TW_Config(39))=3 Then Response.Write "Selected"%>>右上</option>
<option value="4" <%If Clng(ClsPub.TW_Config(39))=4 Then Response.Write "Selected"%>>右下</option>
</SELECT>
</td>
</tr>
<tr>
<td width="37%" height="25" class="tablerow2">是否生成缩略图片：</td>
<td height="25" class="tablerow2">
<input type="radio" name="Setting40" value="1" <%If ClsPub.TW_Config(40)="1" Then Response.Write "Checked" %>>
是
<input type="radio" name="Setting40" value="0" <%If ClsPub.TW_Config(40)="0" Then Response.Write "Checked" %>>
否 </td>
</tr>
<tr>
<td width="37%" height="25" class="tablerow2">上传文件时候是否开启验证码：</td>
<td height="25" class="tablerow2">
<input type="radio" name="Setting41" value="1" <%If ClsPub.TW_Config(41)="1" Then Response.Write "Checked" %>>
打开
<input type="radio" name="Setting41" value="0" <%If ClsPub.TW_Config(41)="0" Then Response.Write "Checked" %>>
关闭 </td>
</tr>
<tr>
<td width="37%" height="25" class="tablerow2">文件有效期：</td>
<td height="25" class="tablerow2">
<input name="Setting42" type="text" id="Setting42" size="12" maxlength="255" value="<%=ClsPub.TW_Config(42)%>">天 (0表示长期有效)</td>
</tr>
<!-- 上传图片添加水印LOGO图片定义 -->
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table" style="display:none;">
<tr>
<td height="25" colspan="2" class="title"><a name="ShopOption"></a>
提取文件设置 <a href="#Top"><font color="#0066CC">（顶 部）</font></a></td>
</tr>
<tr>
<td width="54%" height="25" class="tablerow2">提取文件时是否开启验证码：</td>
<td height="25" class="tablerow2">
<input type="radio" name="Setting43" value="1" <%If ClsPub.TW_Config(43)="1" Then Response.Write "Checked" %>>
打开
<input type="radio" name="Setting43" value="0" <%If ClsPub.TW_Config(43)="0" Then Response.Write "Checked" %>>
关闭 </td>
</tr>
<tr>
<td width="54%" height="25" class="tablerow2">文件提取方式：<br>自动处理:大于100KB的文件使用Ado.Stream读取后发送到客户端</td>
<td height="25" class="tablerow2">
<select name="Setting44" id="Setting44">
<option value="0" <%If ClsPub.TW_Config(44)="0" Then Response.Write "selected" %>>自动处理</option>
<option value="1" <%If ClsPub.TW_Config(44)="1" Then Response.Write "selected" %>>读取后输出文件</option>
<option value="2" <%If ClsPub.TW_Config(44)="2" Then Response.Write "selected" %>>直接跳转到下载地址</option>
</select></td>
</tr>
<tr>
<td width="54%" height="25" class="tablerow2">是否开启文件防盗链功能：</td>
<td height="25" class="tablerow2">
<input type="radio" name="Setting45" value="1" <%If ClsPub.TW_Config(45)="1" Then Response.Write "Checked" %>>
是
<input type="radio" name="Setting45" value="0" <%If ClsPub.TW_Config(45)="0" Then Response.Write "Checked" %>>
否 </td>
</tr>
<tr>
<td width="36%" height="25" class="tablerow2">盗链文件时自动跳转到图片：</td>
<td height="25" class="tablerow2">
<input name="Setting46" type="text" id="Setting46" size="30" maxlength="255" value="<%=ClsPub.TW_Config(46)%>"></td>
</tr>
<tr>
<td height="25" colspan="2" class="title"><a name="ShopOption"></a>
用户上传记录设置 <a href="#Top"><font color="#0066CC">（顶 部）</font></a></td>
</tr>
<tr>
<td width="36%" height="25" class="tablerow2">是否开启用户上传记录</td>
<td height="25" class="tablerow2">
<input type="radio" name="Setting47" value="1" <%If ClsPub.TW_Config(47)="1" Then Response.Write "Checked" %>>
是
<input type="radio" name="Setting47" value="0" <%If ClsPub.TW_Config(47)="0" Then Response.Write "Checked" %>>
否 </td>
</tr>
<tr>
<td width="36%" height="25" class="tablerow2">用户上传记录的有效期：</td>
<td height="25" class="tablerow2">
<input name="Setting48" type="text" id="Setting48" size="12" maxlength="255" value="<%=ClsPub.TW_Config(48)%>">(0表示长期有效)</td>
</tr>
<tr>
<td width="36%" height="25" class="tablerow2">用户ID随机数位数：<br>根据用户IP+N位随机数生成游客ID,使用该ID记录用户上传信息.</td>
<td height="25" class="tablerow2">
<input name="Setting49" type="text" id="Setting49" size="12" maxlength="255" value="<%=ClsPub.TW_Config(49)%>"></td>
</tr>
<tr>
<td width="36%" height="25" class="tablerow2">每页记录数量：</td>
<td height="25" class="tablerow2">
<input name="Setting50" type="text" id="Setting50" size="12" maxlength="255" value="<%=ClsPub.TW_Config(50)%>"></td>
</tr>
<tr>
<td height="25" colspan="2" class="title"><a name="ShopOption"></a>
广告栏设置 <a href="#Top"><font color="#0066CC">（顶 部）</font></a></td>
</tr>
<tr>
<td width="36%" height="25" class="tablerow2">是否开启广告栏：</td>
<td height="25" class="tablerow2">
<input type="radio" name="Setting51" value="1" <%If ClsPub.TW_Config(51)="1" Then Response.Write "Checked" %>>
是
<input type="radio" name="Setting51" value="0" <%If ClsPub.TW_Config(51)="0" Then Response.Write "Checked" %>>
否 </td>
</tr>
<tr>
<td width="36%" height="25" class="tablerow2">文字广告排列方式(行数*列数,参数用"*"分隔开)：</td>
<td height="25" class="tablerow2">
<input name="Setting52" type="text" id="Setting52" size="12" maxlength="255" value="<%=ClsPub.TW_Config(52)%>"></td>
</tr>
<tr>
<td width="36%" height="25" class="tablerow2">LOGO广告排列方式(行数*列数,参数用"*"分隔开)：</td>
<td height="25" class="tablerow2">
<input name="Setting53" type="text" id="Setting53" size="12" maxlength="255" value="<%=ClsPub.TW_Config(53)%>"></td>
</tr>
<tr>
<td width="36%" height="25" class="tablerow2">LOGO大小规格(宽*高,参数用"*"分隔开)：</td>
<td height="25" class="tablerow2">
<input name="Setting54" type="text" id="Setting54" size="12" maxlength="255" value="<%=ClsPub.TW_Config(54)%>"></td>
</tr></table>
<TABLE align="center">
<tr>
<td height="40" colspan="2" align="center" class="title3" >
<input name="Action" type="hidden" id="Action" value="SaveConfig">
<input name="cmdSave" type="submit" id="cmdSave" value=" 保存设置 ">
</td>
</tr>
</form>
</table>
<SCRIPT LANGUAGE="JavaScript">
CheckSel('Setting14','<%=ClsPub.TW_Config(14)%>');
CheckSel('Setting15','<%=ClsPub.TW_Config(15)%>');
CheckSel('Setting48','<%=ClsPub.TW_Config(48)%>');
</script>
<div id="Issubport999" style="display:none"></div>
<%
Dim InstalledObjects(15)
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) = "IronSoft.Upload" 'IronSoft.Upload
InstalledObjects(9) = "LyfUpload.UploadFile" 'LyfUpload.UploadFile
InstalledObjects(10) = "w3.Upload" 'w3.Upload"
'-----------------------
InstalledObjects(11) = "CreatePreviewImage.cGvbox" 'CreatePreviewImage
InstalledObjects(12) = "Persits.Jpeg" 'AspJpeg
InstalledObjects(13) = "SoftArtisans.ImageGen" 'SoftArtisans ImgWriter V1.21
InstalledObjects(14) = "sjCatSoft.Thumbnail" 'sjCatSoft.Thumbnail V2.6
For i=4 to 15
Response.Write "<div id=""Issubport"&i&""" style=""display:none"">"
If ClsPub.IsObjInstalled(InstalledObjects(i)) Then Response.Write InstalledObjects(i)&":<font color=red><b>√</b>服务器支持!</font>" Else Response.Write InstalledObjects(i)&"<b>×</b>服务器不支持!"
Response.Write "</div>"
Next
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function chkselect(s,divid)
{
var divname='Issubport';
var chkreport;
s=Number(s)
if (divid=="know1")
{
divname=divname+s;
}
if (divid=="know2")
{
s+=4;
if (s==1003){s=999;}
divname=divname+s;
}
if (divid=="know3")
{
s+=11;
if (s==1010){s=999;}
divname=divname+s;
}
document.getElementById(divid).innerHTML=divname;
chkreport=document.getElementById(divname).innerHTML;
document.getElementById(divid).innerHTML=chkreport;
}
//-->
</SCRIPT>
<%
End Sub
Sub SaveConfig()
Dim i,TempValue,Temp
For i=0 To 54
TempValue=Trim(Request.Form("Setting"&i))
If TempValue="" Then
SysMsg="各项均不能为空，请填写完整!"
Call ClsPub.Alert("?",0)
Else
Temp=Temp&TempValue&"|||"
End If
Next
ClsPub.DB_Execute("Update [TW_Config] Set SysConfig = '"&Temp&"' Where Id=1")
ClsPub.DelCahe("SysConfig")
SysMsg="配置保存成功"
Call ClsPub.Alert("?",0)
Call CloseAll()
End Sub
%>
</body>
</html>
<%CloseAll%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -