📄 admin_com.asp
字号:
<td height="25" >上传图片添加水印文字信息（可为空或0）:</td>
<td height="25" ><% Call EchoInput("a13",40,50,ac(13))%></td>
</tr>
<tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td height="25" >上传添加水印字体大小:</td>
<td height="25" ><% Call EchoInput("a14",40,50,ac(14))%><b>px</b> </td>
</tr>
<tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td height="25" >上传添加水印字体颜色:</td>
<td height="25" ><input type="text" name="a15" ID="d_a15" size=10 value="<%if ac(15)="" then Response.Write("#FFFFFF") else Response.Write(ac(15))%>">
<img border=0 id="s_a15" src="images/rect.gif" style="cursor:pointer;background-Color:<%=ac(15)%>;" onclick="SelectColor('a15');" title="选取颜色!">
</td>
</tr>
<tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td height="25" >上传添加水印字体名称:</td>
<td height="25" ><select name="a16" id="a16">
<option value="宋体" <%If ac(16)="宋体" Then Response.Write "selected"%>>宋体</option>
<option value="楷体_GB2312" <%If ac(16)="楷体_GB2312" Then Response.Write "selected"%>>楷体</option>
<OPTION value="Andale Mono" <%If ac(16)="Andale Mono" Then Response.Write "selected"%>>Andale Mono</OPTION>
<OPTION value="Arial" <%If ac(16)="Arial" Then Response.Write "selected"%>>Arial</OPTION>
<OPTION value="Arial Black" <%If ac(16)="Arial Black" Then Response.Write "selected"%>>Arial Black</OPTION>
<OPTION value="Century Gothic"<%If ac(16)="Century Gothic" Then Response.Write "selected"%>>Century Gothic</OPTION>
<OPTION value="Comic Sans MS" <%If ac(16)="Comic Sans MS" Then Response.Write "selected"%>>Comic Sans MS</OPTION>
<OPTION value="Courier New" <%If ac(16)="Courier New" Then Response.Write "selected"%>>Courier New</OPTION>
<OPTION value="Georgia" <%If ac(16)="Georgia" Then Response.Write "selected"%>>Georgia</OPTION>
<OPTION value="Impact" <%If ac(16)="Impact" Then Response.Write "selected"%>>Impact</OPTION>
<OPTION value="Tahoma" <%If ac(16)="Tahoma" Then Response.Write "selected"%>>Tahoma</OPTION>
<OPTION value="Times New Roman" <%If ac(16)="Times New Roman" Then Response.Write "selected"%>>Times New Roman</OPTION>
<OPTION value="Stencil" <%If ac(16)="Stencil" Then Response.Write "selected"%>>Stencil</OPTION>
<OPTION value="Verdana" <%If ac(16)="Verdana" Then Response.Write "selected"%>>Verdana</OPTION>
</select></td>
</tr>
<tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td height="25" >上传水印字体是否粗体:</td>
<td height="25" ><% Call EchoRadio("a17","","",ac(17))%>
</select></td>
</tr>
<tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td height="25" >上传图片添加水印LOGO图片信息（可为空或0）:<br>
填写LOGO的图片相对路径
<br/>
相对根目录的路径，如放置于根目录下，则直接写路径 test.jpg
<br/>
如放置于根目录下的images目录下，则为 images/test.jpg</td>
<td height="25" ><% Call EchoInput("a18",40,50,ac(18))%></td>
</tr>
<tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td height="25" >上传图片添加水印透明度:</td>
<td height="25"><% Call EchoInput("a19",40,50,ac(19))%>如60%请填写0.6 </td>
</tr>
<tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td height="25" >水印图片去除底色:<br>
保留为空则水印图片不去除底色。</td>
<td height="25" ><input type="text" name="a20" ID="d_a20" size=10 value="<%if ac(20)="" then Response.Write("#FFFFFF") else Response.Write(ac(20))%>">
<img border=0 id="s_a20" src="images/rect.gif" style="cursor:pointer;background-Color:<%=ac(20)%>;" onclick="SelectColor('a20');" title="选取颜色!">
</td>
</tr>
<tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td height="25" >水印文字或图片的长宽区域定义:<br>
如水印图片的宽度和高度。</td>
<td height="25" >高度：<% Call EchoInput("a21",5,5,ac(21))%>象素,
宽度：<% Call EchoInput("a22",5,5,ac(22))%>象素 </td>
</tr>
<tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td height="25" >上传图片添加水印LOGO位置坐标 :</td>
<td height="25" ><select NAME="a23" id="upset_DrawXYType">
<option value="0" <%if ac(23)=0 then Response.Write("selected")%>>左上</option>
<option value="1" <%if ac(23)=1 then Response.Write("selected")%>>左下</option>
<option value="2" <%if ac(23)=2 then Response.Write("selected")%>>居中</option>
<option value="3" <%if ac(23)=3 then Response.Write("selected")%>>右上</option>
<option value="4" <%if ac(23)=4 then Response.Write("selected")%>>右下</option>
</select></td>
</tr>
<tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td height="25" > </td>
<td height="25" > </td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="tdbg" > <input name="Action" type="hidden" id="Action" value="saveconfig">
<input name="cmdSave" type="submit" id="cmdSave" value=" 保存设置 " > </td>
</tr>
</table>
</form>
<script language="javascript">
function SelectColor(what){
var dEL = document.all("d_"+what);
var sEL = document.all("s_"+what);
var arr = showModalDialog("../images/selcolor.html", "", "dialogWidth:18.5em; dialogHeight:17.5em; status:0; help:0");
if (arr) {
dEL.value=arr;
sEL.style.backgroundColor=arr;
}
}
</script>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
</body>
</html>
<%
end sub
'上传组件检测并生成选择表单
Function MakeSelect_Upload(sValue)
Dim sRet,s1,s2,s3,s4
select Case sValue
Case "0"
s2=" selected"
Case "1"
s3=" selected"
Case "2"
s4=" selected"
Case Else
s1=" selected"
End select
sRet="<select name=a11>" & vbcrlf
sRet= sRet & "<option value=""999""" & s1 & ">关闭</option>" & vbcrlf
If IsObjInstalled(aObjects(5)) Then sRet= sRet & "<option value=""0""" & s2 & ">无组件上传</option>" & vbcrlf
If IsObjInstalled(aObjects(6)) Then sRet= sRet & "<option value=""1""" & s3 & ">Aspupload3.0组件 </option>" & vbcrlf
If IsObjInstalled(aObjects(7)) Then sRet= sRet & "<option value=""2""" & s4 & ">SA-FileUp 4.0组件</option>" & vbcrlf
sRet= sRet & "</select>"
MakeSelect_Upload=sRet
sRet=""
End Function
'自动检测缩略图组件并生成表单
Function MakeSelect_Photo(sValue)
Dim sRet,sRet1,bRet,s1,s2,s3
select Case sValue
Case "0"
s1=" selected"
Case "1"
s2=" selected"
Case "2"
s3=" selected"
Case Else
s1=" selected"
End select
If IsObjInstalled("Persits.Jpeg") Then
bRet=true
sRet1= "AspJpeg组件<font color=red><b>√</b>服务器支持!</font>"
Else
bRet=false
sRet1= "AspJpeg组件<b>×</b>服务器不支持!"
End If
sRet= "<select name=a12>" & vbcrlf
sRet= sRet & "<option value=""0""" & s1 & ">关闭缩略图及水印效果</option>" & vbcrlf
If bRet Then
sRet= sRet & "<option value=""1""" & s2 & ">开启缩略图及水印文字效果(推荐)</option>" & vbcrlf
sRet= sRet & "<option value=""2""" & s3 & ">开启缩略图及水印图片效果</option>" & vbcrlf
End If
sRet= sRet & "</select> (" & sRet1 & ")"
MakeSelect_Photo=sRet
sRet=""
sRet1=""
End Function
'自动检测邮件组件并生成选择表单
Function MakeSelect_Mail(sValue)
Dim sRet,s1,s2,s3,s4
select Case sValue
Case "0"
s2=" selected"
Case "1"
s3=" selected"
Case "2"
s4=" selected"
Case Else
s1=" selected"
End select
sRet="<select name=a4>" & vbcrlf
sRet= sRet & "<option value=""999""" & s1 & ">关闭</option>" & vbcrlf
If IsObjInstalled(aObjects(2)) Then sRet= sRet & "<option value=""0""" & s2 & ">JMail组件</option>" & vbcrlf
If IsObjInstalled(aObjects(3)) Then sRet= sRet & "<option value=""1""" & s3 & ">CDONT(2000/2003自带)</option>" & vbcrlf
If IsObjInstalled(aObjects(4)) Then sRet= sRet & "<option value=""2""" & s4 & ">AspMail组件</option>" & vbcrlf
sRet= sRet & "</select>"
MakeSelect_Mail=sRet
sRet=""
End Function
Sub Saveconfig()
If Request.QueryString <>"" Then Exit Sub
Dim rs, i,sOpt
sOpt=""
For i=1 To C_Items
sOpt=sOpt & "$$" & Replace(Trim(Request.Form("a"&i)),"$","")
Next
sOpt=Now&sOpt
If Not IsObject(conn) Then link_database
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "select * From oblog_config Where Id=2",conn,1,3
If rs.Eof Then rs.AddNew
rs("ob_value")=sOpt
rs.Update
rs.Close
Set rs = Nothing
oblog.ReloadCache
EventLog "进行修改服务器组件配置的操作!",""
Set oblog=Nothing
Response.Redirect "admin_com.asp"
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -