📄 admin_cls.asp
字号:
If RS("MarkFontName") = "宋体" Then Response.Write ("selected")
Response.Write ">宋体</option>"
Response.Write " <option value=""楷体_GB2312"" "
If RS("MarkFontName") = "楷体_GB2312" Then Response.Write ("selected")
Response.Write ">楷体</option>"
Response.Write " <option value=""新宋体"" "
If RS("MarkFontName") = "新宋体" Then Response.Write ("selected")
Response.Write ">新宋体</option>"
Response.Write " <option value=""黑体"" "
If RS("MarkFontName") = "黑体" Then Response.Write ("selected")
Response.Write ">黑体</option>"
Response.Write " <option value=""隶书"" "
If RS("MarkFontName") = "隶书" Then Response.Write ("selected")
Response.Write ">隶书</option>"
Response.Write " <OPTION value=""Andale Mono"" "
If RS("MarkFontName") = "Andale Mono" Then Response.Write ("selected")
Response.Write ">Andale"
Response.Write " Mono</OPTION>"
Response.Write " <OPTION value=""Arial"" "
If RS("MarkFontName") = "Arial" Then Response.Write ("selected")
Response.Write ">Arial</OPTION>"
Response.Write " <OPTION value=""Arial Black"" "
If RS("MarkFontName") = "Arial Black" Then Response.Write ("selected")
Response.Write ">Arial"
Response.Write " Black</OPTION>"
Response.Write " <OPTION value=""Book Antiqua"" "
If RS("MarkFontName") = "Book Antiqua" Then Response.Write ("selected")
Response.Write ">Book"
Response.Write " Antiqua</OPTION>"
Response.Write " <OPTION value=""Century Gothic"" "
If RS("MarkFontName") = "Century Gothic" Then Response.Write ("selected")
Response.Write ">Century"
Response.Write " Gothic</OPTION>"
Response.Write " <OPTION value=""Comic Sans MS"" "
If RS("MarkFontName") = "Comic Sans MS" Then Response.Write ("selected")
Response.Write ">Comic"
Response.Write " Sans MS</OPTION>"
Response.Write " <OPTION value=""Courier New"" "
If RS("MarkFontName") = "Courier New" Then Response.Write ("selected")
Response.Write ">Courier"
Response.Write " New</OPTION>"
Response.Write " <OPTION value=""Georgia"" "
If RS("MarkFontName") = "Georgia" Then Response.Write ("selected")
Response.Write ">Georgia</OPTION>"
Response.Write " <OPTION value=""Impact"" "
If RS("MarkFontName") = "Impact" Then Response.Write ("selected")
Response.Write ">Impact</OPTION>"
Response.Write " <OPTION value=""Tahoma"" "
If RS("MarkFontName") = "Tahoma" Then Response.Write ("selected")
Response.Write ">Tahoma</OPTION>"
Response.Write " <OPTION value=""Times New Roman"" "
If RS("MarkFontName") = "Times New Roman" Then Response.Write ("selected")
Response.Write ">Times"
Response.Write " New Roman</OPTION>"
Response.Write " <OPTION value=""Trebuchet MS"" "
If RS("MarkFontName") = "Trebuchet MS" Then Response.Write ("selected")
Response.Write ">Trebuchet"
Response.Write " MS</OPTION>"
Response.Write " <OPTION value=""Script MT Bold"" "
If RS("MarkFontName") = "Script MT Bold" Then Response.Write ("selected")
Response.Write ">Script"
Response.Write " MT Bold</OPTION>"
Response.Write " <OPTION value=""Stencil"" "
If RS("MarkFontName") = "Stencil" Then Response.Write ("selected")
Response.Write ">Stencil</OPTION>"
Response.Write " <OPTION value=""Verdana"" "
If RS("MarkFontName") = "Verdana" Then Response.Write ("selected")
Response.Write ">Verdana</OPTION>"
Response.Write " <OPTION value=""Lucida Console"" "
If RS("MarkFontName") = "Lucida Console" Then Response.Write ("selected")
Response.Write ">Lucida"
Response.Write " Console</OPTION>"
Response.Write " </SELECT> </td>"
Response.Write " </tr>"
Response.Write " <tr bgcolor=""#FFFFFF"" onMouseOut=""this.style.backgroundColor='#FFFFFF'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'"">"
Response.Write " <td height=""26"" align=""right"" >字体是否粗体：</td>"
Response.Write " <td > <SELECT name=""MarkFontBond"" id=""MarkFontBond"">"
Response.Write " <OPTION value=0 "
If RS("MarkFontBond") = "0" Then Response.Write ("selected")
Response.Write ">否</OPTION>"
Response.Write " <OPTION value=1 "
If RS("MarkFontBond") = "1" Then Response.Write ("selected")
Response.Write ">是</OPTION>"
Response.Write " </SELECT> </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td colspan=""2"">"
Response.Write " <table width=""100%"" border=0 align=center cellPadding=0 cellSpacing=0 bordercolor=""#FFFFFF"" bgcolor=""#C4D8ED"" id=""picarea"">"
Response.Write " <tr bgcolor=""#FFFFFF"" onMouseOut=""this.style.backgroundColor='#FFFFFF'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'"">"
Response.Write " <td width=""27%"" height=""26"" align=""right"" >LOGO图片：<br> </td>"
Response.Write " <td width=""70%"" > <INPUT TYPE=""text"" NAME=""gif_url"" size=40 value=""" & RS("MarkPicture") & """>"
Response.Write " <font color=""#FF0000""> <input type=""button"" name=""Button"" value=""从已上传图片选择"" onClick=""javascript:window.open('selectupfile.asp?UrlID=1', 'selupfile', 'width=800, height=600, toolbar=no, menubar=no, scrollbars=yes, resizable=no, location=no, status=yes');"" style=""cursor: hand;background-color:#DEDDEA""> <input class='button' type='button' name='Submit' value='上传图片文件' onClick=""JavaScript:openem() ""> 如:/images/logo.gif</font></td>"
Response.Write " </tr>"
Response.Write " <tr bgcolor=""#FFFFFF"" onMouseOut=""this.style.backgroundColor='#FFFFFF'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'"">"
Response.Write " <td height=""26"" align=""right"" >LOGO图片透明度：</td>"
Response.Write " <td > <INPUT TYPE=""text"" NAME=""MarkOpacity"" size=10 value="""
If Left(RS("MarkOpacity"), 1) = "." Then Response.Write ("0" & RS("MarkOpacity")) Else Response.Write (RS("MarkOpacity"))
Response.Write """>"
Response.Write " 如50%<span class=""redtext"">请填写0.5 </span> </td>"
Response.Write " </tr>"
Response.Write " <tr bgcolor=""#FFFFFF"" onMouseOut=""this.style.backgroundColor='#FFFFFF'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'"">"
Response.Write " <td height=""26"" align=""right"" >图片去除底色：</td>"
Response.Write " <td > <input type=""text"" name=""MarkTranspColor"" maxlength = 7 size = 7 id=""MarkTranspColor"" value=""" & MarkTranspColor & """ readonly>"
Response.Write " <img border=0 align=""absmiddle"" id=""MarkTranspColor"" src=""../images/admin/rect.gif"" style=""cursor:pointer;background-Color:" & MarkTranspColor & ";"" onClick=""Getcolor(this,'Include/selectcolor.asp','MarkTranspColor');"" title=""选取颜色"">"
Response.Write " 保留为空则水印图片不去除底色。 </td>"
Response.Write " </tr>"
Response.Write " <tr bgcolor=""#FFFFFF"" onMouseOut=""this.style.backgroundColor='#FFFFFF'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'"">"
Response.Write " <td height=""26"" align=""right"" >图片坐标位置：<br> </td>"
Response.Write " <td >X："
Response.Write " <INPUT TYPE=""text"" NAME=""MarkWidth"" size=10 value=""" & RS("MarkWidth") & """>"
Response.Write " 像素<br>"
Response.Write "Y："
Response.Write " <INPUT TYPE=""text"" NAME=""MarkHeight"" size=10 value=""" & RS("MarkHeight") & """>"
Response.Write " 像素 </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table></td>"
Response.Write " </tr>"
Response.Write "</body>"
Response.Write "<script language=""javascript"">"
Response.Write "if (document.all.MarkFontColor.value!='')"
Response.Write " document.all.MarkFontColor.style.color=document.all.MarkFontColor.value;"
Response.Write "if (document.all.MarkTranspColor.value!='')"
Response.Write " document.all.MarkTranspColor.style.color=document.all.MarkTranspColor.value;"
Response.Write "function SetTypeArea(TypeID)"
Response.Write "{"
Response.Write " if (TypeID==1)"
Response.Write " {"
Response.Write " document.all.textarea.style.display='';"
Response.Write " document.all.picarea.style.display='none';"
Response.Write " }"
Response.Write " else"
Response.Write " {"
Response.Write " document.all.textarea.style.display='none';"
Response.Write " document.all.picarea.style.display='';"
Response.Write " }"
Response.Write "}"
Response.Write "function ShowInfo(ComponentID)"
Response.Write "{"
Response.Write " if(ComponentID == 0)"
Response.Write " {"
Response.Write " document.all.WaterMarkSetting.style.display = ""none"";"
Response.Write " }"
Response.Write " else"
Response.Write " {"
Response.Write " document.all.WaterMarkSetting.style.display = """";"
Response.Write " }"
Response.Write "}"
Response.Write "function ShowThumbInfo(ThumbComponentID)"
Response.Write "{"
Response.Write " if(ThumbComponentID == 0)"
Response.Write " {"
Response.Write " document.all.ThumbSetting.style.display = ""none"";"
Response.Write " }"
Response.Write " else"
Response.Write " {"
Response.Write " document.all.ThumbSetting.style.display = """";"
Response.Write " }"
Response.Write "}"
Response.Write "function ShowThumbSetting(ThumbSettingid)"
Response.Write "{"
Response.Write " if(ThumbSettingid == 0)"
Response.Write " {"
Response.Write " document.all.ThumbSetting1.style.display = ""none"";"
Response.Write " document.all.ThumbSetting0.style.display = """";"
Response.Write " }"
Response.Write " else"
Response.Write " {"
Response.Write " document.all.ThumbSetting1.style.display = """";"
Response.Write " document.all.ThumbSetting0.style.display = ""none"";"
Response.Write " }"
Response.Write "}"
Response.Write "function CheckForm()"
Response.Write "{"
Response.Write "document.form.submit();"
Response.Write "}"
Response.Write "</script>"
%> </td></tr>
<tr>
<td height="40" colspan="3" align="center" class="tableBorder"><input type="submit" name="Submit" value=" 提 交 "></td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
end sub
Public Function ExpiredStr(I)
Dim ComponentName(3)
ComponentName(0) = "Persits.Jpeg"
ComponentName(1) = "wsImage.Resize"
ComponentName(2) = "SoftArtisans.ImageGen"
ComponentName(3) = "CreatePreviewImage.cGvbox"
If IsObjInstalled(ComponentName(I)) Then
If IsExpired(ComponentName(I)) Then
ExpiredStr = "，但已过期"
Else
ExpiredStr = ""
End If
ExpiredStr = " √支持" & ExpiredStr
Else
ExpiredStr = "×不支持"
End If
End Function
Public Function IsExpired(strClassString)
On Error Resume Next
IsExpired = True
Err = 0
Dim xTestObj:Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then
Select Case strClassString
Case "Persits.Jpeg"
If xTestObjResponse.Expires > Now Then
IsExpired = False
End If
Case "wsImage.Resize"
If InStr(xTestObj.errorinfo, "已经过期") = 0 Then
IsExpired = False
End If
Case "SoftArtisans.ImageGen"
xTestObj.CreateImage 500, 500, RGB(255, 255, 255)
If Err = 0 Then
IsExpired = False
End If
End Select
End If
Set xTestObj = Nothing
Err = 0
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -