📄 admin_config.xml.asp
字号:
<%Admin="pic"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='admin.asp';</script>")
response.end
end if%>
<%
strSourceFile = Server.MapPath("inc/config.xml")
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
'Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.load(strSourceFile)
If objXML.parseError.ErrorCode <> 0 Then
objXML.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?>"
End If
set objupload = objXML.documentElement.SelectSingleNode("upload")
if request("mode")="save" then
objupload.SelectSingleNode("max_size").text=request.form("max_size")
objupload.SelectSingleNode("up_module").text=request.form("up_module")
objupload.SelectSingleNode("img_module").text=request.form("img_module")
objupload.SelectSingleNode("small_gz").text=request.form("small_gz")
objupload.SelectSingleNode("small_width").text=request.form("small_width")
objupload.SelectSingleNode("small_height").text=request.form("small_height")
objupload.SelectSingleNode("watermark_config").text=request.form("watermark_config")
objupload.SelectSingleNode("watermark_font").text=request.form("watermark_font")
objupload.SelectSingleNode("watermark_font_size").text=request.form("watermark_font_size")
objupload.SelectSingleNode("watermark_font_color").text=request.form("watermark_font_color")
objupload.SelectSingleNode("watermark_font_name").text=request.form("watermark_font_name")
objupload.SelectSingleNode("watermark_font_b").text=request.form("watermark_font_b")
objupload.SelectSingleNode("watermark_img_path").text=request.form("watermark_img_path")
objupload.SelectSingleNode("watermark_img_alpha").text=request.form("watermark_img_alpha")
objupload.SelectSingleNode("watermark_img_delbg").text=request.form("watermark_img_delbg")
objupload.SelectSingleNode("watermark_width").text=request.form("watermark_width")
objupload.SelectSingleNode("watermark_height").text=request.form("watermark_height")
objupload.SelectSingleNode("watermark_img_xy").text=request.form("watermark_img_xy")
objXML.save(strSourceFile)
response.Write("<script>alert('保存成功！');</script>")
end if
%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="inc/admin.css" rel="stylesheet" type="text/css">
<script language="javascript">
var ColorImg;
var ColorValue;
function hideColourPallete() {
document.getElementById("colourPalette").style.visibility="hidden";
}
function Getcolor(img_val,input_val){
var obj = document.getElementById("colourPalette");
ColorImg = img_val;
ColorValue = document.getElementById(input_val);
if (obj){
obj.style.left = getOffsetLeft(ColorImg) + "px";
obj.style.top = (getOffsetTop(ColorImg) + ColorImg.offsetHeight) + "px";
if (obj.style.visibility=="hidden")
{
obj.style.visibility="visible";
}else {
obj.style.visibility="hidden";
}
}
}
//Colour pallete top offset
function getOffsetTop(elm) {
var mOffsetTop = elm.offsetTop;
var mOffsetParent = elm.offsetParent;
while(mOffsetParent){
mOffsetTop += mOffsetParent.offsetTop;
mOffsetParent = mOffsetParent.offsetParent;
}
return mOffsetTop;
}
//Colour pallete left offset
function getOffsetLeft(elm) {
var mOffsetLeft = elm.offsetLeft;
var mOffsetParent = elm.offsetParent;
while(mOffsetParent) {
mOffsetLeft += mOffsetParent.offsetLeft;
mOffsetParent = mOffsetParent.offsetParent;
}
return mOffsetLeft;
}
function setColor(color)
{
if (ColorValue){ColorValue.value = color;}
if (ColorImg){ColorImg.style.backgroundColor = color;}
document.getElementById("colourPalette").style.visibility="hidden";
}
//SELECT表单选取
function CheckSel(Voption,Value)
{
var obj = document.getElementById(Voption);
for (i=0;i<obj.length;i++){
if (obj.options[i].value==Value){
obj.options[i].selected=true;
break;
}
}
}
</script>
</head><body>
<iframe width="260" height="165" id="colourPalette" src="img/nc_selcolor.htm" style="visibility:hidden; position: absolute; left: 0px; top: 0px;border:1px gray solid" frameborder="0" scrolling="no" ></iframe>
<table width=98% align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form name="form1" method="post" action="">
<input type="hidden" value="save" name="mode">
<tr class=lanyuss>
<th height=25 colspan=2>图片频道上传设置</tr>
<tr class=lanyuds>
<td width="40%" >允许的最大图片文件大小</td>
<td width="60%" ><input name="max_size" type="text" id="max_size" value="<%=objupload.SelectSingleNode("max_size").text%>" size="6">
K </td>
<input type="hidden" id="Forum_FaceUploadSize" value="<b>头像文件大小帮助:</b><br><li>限制上传头像文件的大小。<li>用户头像除上传限制外，请查看“用户选项”相关设置。">
</tr>
<tr class=lanyuds>
<td >选取上传组件:</td>
<td ><select name="up_module" id="up_module" onChange="chkselect(options[selectedIndex].value,'know2');">
<option value="999">关闭
<option value="0">无组件上传类
<option value="1">Aspupload3.0组件
<option value="2">SA-FileUp 4.0组件
<option value="3">DvFile-Up V1.0组件 </option>
</select>
<div id="know2"></div>
<script>CheckSel('up_module','<%=objupload.SelectSingleNode("up_module").text%>')</script></td>
</tr>
<tr class=lanyuds>
<td>选取生成预览图片组件:</td>
<td><select name="img_module" id="img_module" onChange="chkselect(options[selectedIndex].value,'know3');">
<option value="999">关闭
<option value="0">CreatePreviewImage组件
<option value="1">AspJpeg组件
<option value="2">SA-ImgWriter组件
</select>
<div id="know3"></div><script>CheckSel('img_module','<%=objupload.SelectSingleNode("img_module").text%>')</script></td>
</tr>
<tr class=lanyuds>
<td>生成预览图片大小设置(宽度|高度):</td>
<td> 宽度：
<input name="small_width" type="text" id="small_width" value="<%=objupload.SelectSingleNode("small_width").text%>" size=10>
象素 高度：
<input name="small_height" type="text" id="small_height" value="<%=objupload.SelectSingleNode("small_height").text%>" size=10>
象素 </td>
</tr>
<tr class=lanyuds>
<td>生成预览图片大小规则选项:</td>
<td><select name="small_gz" id="small_gz">
<option value=0>固定</option>
<option value=1>等比例缩小</option>
</select>
<script>CheckSel('small_gz','<%=objupload.SelectSingleNode("small_gz").text%>')</script></td>
</tr>
<tr class=lanyuds>
<td>图片水印设置开关:</td>
<td><select name="watermark_config" id="watermark_config">
<option value="0">关闭水印效果</option>
<option value="1">水印文字效果</option>
<option value="2">水印图片效果</option>
</select>
<script>CheckSel('watermark_config','<%=objupload.SelectSingleNode("watermark_config").text%>')</script>
</td>
</tr>
<tr class=lanyuds>
<td >上传图片添加水印文字信息（可为空或0）:</td>
<td ><input name="watermark_font" type="text" id="watermark_font" value="<%=objupload.SelectSingleNode("watermark_font").text%>" size=40>
</td>
</tr>
<tr class=lanyuds>
<td>上传添加水印字体大小:</td>
<td><input name="watermark_font_size" type="text" id="watermark_font_size" value="<%=objupload.SelectSingleNode("watermark_font_size").text%>" size=10>
<b>px</b> </td>
</tr>
<tr class=lanyuds>
<td>上传添加水印字体颜色:</td>
<td><input type="hidden" name="watermark_font_color" id="watermark_font_color" value="<%=objupload.SelectSingleNode("watermark_font_color").text%>">
<img src="img/rect.gif" width="18" height="17" border=0 style="cursor:pointer;background-Color:<%=objupload.SelectSingleNode("watermark_font_color").text%>;" title="选取颜色!" onClick="Getcolor(this,'watermark_font_color');"> </td>
</tr>
<tr class=lanyuds>
<td>上传添加水印字体名称:</td>
<td><select name="watermark_font_name" id="watermark_font_name">
<option value="宋体" selected>宋体</option>
<option value="楷体_GB2312">楷体</option>
<option value="新宋体">新宋体</option>
<option value="黑体">黑体</option>
<option value="隶书">隶书</option>
<option value="Andale Mono" >Andale Mono</option>
<option value=Arial>Arial</option>
<option value="Arial Black">Arial Black</option>
<option value="Book Antiqua">Book Antiqua</option>
<option value="Century Gothic">Century Gothic</option>
<option value="Comic Sans MS">Comic Sans MS</option>
<option value="Courier New">Courier New</option>
<option value=Georgia>Georgia</option>
<option value=Impact>Impact</option>
<option value=Tahoma>Tahoma</option>
<option value="Times New Roman" >Times New Roman</option>
<option value="Trebuchet MS">Trebuchet MS</option>
<option value="Script MT Bold">Script MT Bold</option>
<option value=Stencil>Stencil</option>
<option value=Verdana>Verdana</option>
<option value="Lucida Console">Lucida Console</option>
</select><script>CheckSel('watermark_font_name','<%=objupload.SelectSingleNode("watermark_font_name").text%>')</script>
</td>
</tr>
<tr class=lanyuds>
<td>上传水印字体是否粗体:</td>
<td><select name="watermark_font_b" id="watermark_font_b">
<option value=0>否</option>
<option value=1>是</option>
</select><script>CheckSel('watermark_font_b','<%=objupload.SelectSingleNode("watermark_font_b").text%>')</script>
</td>
</tr>
<!-- 上传图片添加水印LOGO图片定义 -->
<tr class=lanyuds>
<td>上传图片添加水印LOGO图片信息（可为空或0）:<br>
填写LOGO的图片相对路径</td>
<td><input type="text" name="watermark_img_path" size=40 value="<%=objupload.SelectSingleNode("watermark_img_path").text%>">
</td>
</tr>
<tr class=lanyuds>
<td>上传图片添加水印透明度:</td>
<td><input name="watermark_img_alpha" type="text" id="watermark_img_alpha" value="<%=objupload.SelectSingleNode("watermark_img_alpha").text%>" size=10>
如60%请填写0.6 </td>
</tr>
<tr class=lanyuds>
<td>水印图片去除底色:<br>
保留为空则水印图片不去除底色。</td>
<td><input type="text" name="watermark_img_delbg" id="watermark_img_delbg" size=10 value="<%=objupload.SelectSingleNode("watermark_img_delbg").text%>"> <img src="img/rect.gif" width="18" height="17" border=0 style="cursor:pointer;background-Color:<%=objupload.SelectSingleNode("watermark_img_delbg").text%>;" title="选取颜色!" onClick="Getcolor(this,'watermark_img_delbg');"> </td>
</tr>
<tr class=lanyuds>
<td>水印文字或图片的长宽区域定义:<br>
如水印图片的宽度和高度。</td>
<td> 宽度：
<input name="watermark_width" type="text" id="watermark_width" value="<%=objupload.SelectSingleNode("watermark_width").text%>" size=10>
象素 高度：
<input name="watermark_height" type="text" id="watermark_height" value="<%=objupload.SelectSingleNode("watermark_height").text%>" size=10>
象素 </td>
</tr>
<tr class=lanyuds>
<td>上传图片添加水印LOGO位置坐标 :</td>
<td><select name="watermark_img_xy" id="watermark_img_xy">
<option value="0">左上</option>
<option value="1">左下</option>
<option value="2">居中</option>
<option value="3">右上</option>
<option value="4">右下</option>
</select>
<script>CheckSel('watermark_img_xy','<%=objupload.SelectSingleNode("watermark_img_xy").text%>')</script></td>
</tr>
<tr align="center">
<td height="36" colspan="2" >
<input type="submit" name="Submit" value="保存">
</td>
</tr> </form>
</table>
</body>
</html>
<%
Dim InstalledObjects(12)
InstalledObjects(1) = "JMail.Message" 'JMail 4.3
InstalledObjects(2) = "CDONTS.NewMail" 'CDONTS
InstalledObjects(3) = "Persits.MailSender" 'ASPEMAIL
InstalledObjects(4) = "CDO.Message" 'window 2003 new SendMailCom Object
'-----------------------
InstalledObjects(5) = "Adodb.Stream" 'Adodb.Stream
InstalledObjects(6) = "Persits.Upload" 'Aspupload3.0
InstalledObjects(7) = "SoftArtisans.FileUp" 'SA-FileUp 4.0
InstalledObjects(8) = "DvFile.Upload" 'DvFile-Up V1.0
'-----------------------
InstalledObjects(9) = "CreatePreviewImage.cGvbox" 'CreatePreviewImage
InstalledObjects(10) = "Persits.Jpeg" 'AspJpeg
InstalledObjects(11) = "SoftArtisans.ImageGen" 'SoftArtisans ImgWriter V1.21
InstalledObjects(12) = "sjCatSoft.Thumbnail" 'sjCatSoft.Thumbnail V2.6
For i=1 to 12
Response.Write "<div id=""Issubport"&i&""" style=""display:none"">"
If IsObjInstalled(InstalledObjects(i)) Then Response.Write InstalledObjects(i)&":<font color=red><b>"&server.HTMLEncode("√")&"</b>"&server.HTMLEncode("服务器支持!")&"</font>" Else Response.Write InstalledObjects(i)&"<b>"&server.HTMLEncode("×")&"</b>"&server.HTMLEncode("服务器不支持!")&""
Response.Write "</div>"
Next
response.Write("<div id=""Issubport0"" style=""display:none"">请选择EMAIL组件！</div>")
response.Write("<div id=""Issubport999"" style=""display:none""></div>")
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If Err = 0 Then IsObjInstalled = True
If Err = -2147352567 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
<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+=5;
if (s==1004){s=999;}
divname=divname+s;
}
if (divid=="know3")
{
s+=9;
if (s==1009){s=999;}
divname=divname+s;
}
document.getElementById(divid).innerHTML=divname;
chkreport=document.getElementById(divname).innerHTML;
document.getElementById(divid).innerHTML=chkreport;
}
//-->
</SCRIPT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -