📄 sk_config.asp
字号:
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"">"
Response.Write " <td height=""26"" align=""right"" class=""table"">字体是否粗体:</td>"
Response.Write " <td class=""table""> <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"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#efefef"" id=""picarea"">"
Response.Write " <tr bgcolor=""#FFFFFF"">"
Response.Write " <td width=""27%"" height=""26"" align=""right"" class=""table"">LOGO图片:<br> </td>"
Response.Write " <td width=""70%"" class=""table""> <INPUT TYPE=""text"" NAME=""MarkPicture"" size=40 value=""" & RS("MarkPicture") & """>"
Response.Write " <font color=""#FF0000"">列如:/images/logo.gif</font></td>"
Response.Write " </tr>"
Response.Write " <tr bgcolor=""#FFFFFF"">"
Response.Write " <td height=""26"" align=""right"" class=""table"">LOGO图片透明度:</td>"
Response.Write " <td class=""table""> <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%请填写0.5 </td>"
Response.Write " </tr>"
Response.Write " <tr bgcolor=""#FFFFFF"">"
Response.Write " <td height=""26"" align=""right"" class=""table"">图片去除底色:</td>"
Response.Write " <td class=""table""> <INPUT TYPE=""text"" NAME=""MarkTranspColor"" ID=""MarkTranspColor"" maxlength = 7 size = 7 value=""" & RS("MarkTranspColor") & """ >"
Response.Write " <input type=""button"" name=""button1"" value=""选择颜色..."" onClick=""OpenThenSetValue('inc/SelectColor.asp',230,190,window,document.form.MarkTranspColor);document.form.MarkTranspColor.style.color=document.form.MarkTranspColor.value;"">"
Response.Write " 保留为空则水印图片不去除底色。 </td>"
Response.Write " </tr>"
Response.Write " <tr bgcolor=""#FFFFFF"">"
Response.Write " <td height=""26"" align=""right"" class=""table"">图片坐标位置:<br> </td>"
Response.Write " <td class=""table""> 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 colspan="3" class="title2"> </td>
</tr>
<tr>
<td colspan="3" class="title"><div align="center" style="font-weight: bold">目录设置</div></td>
</tr>
<tr>
<td colspan="3" class="title2"> 此设置应用于远程保存文件目录地址。<span class="table"></span></td>
</tr>
<tr>
<td class="table"> 新闻采集目录</td>
<%
Dim rs1
Set rs1 = ConnItem.execute("Select top 1 Dir,MaxFileSize,FileExtName,Timeout from SK_Cj where ID=1")
%>
<td colspan="2" class="table"><input name="ArticleDir" type="text" class="lostfocus" id="ArticleDir" onfocus='this.className="getfocus";this.gf="1"' onblur='this.className="lostfocus";this.gf="0"' onmouseover='this.className="getfocus"' onmouseout='if (this.gf=="0") this.className="lostfocus"' value="<% =rs1("Dir") %>" gf="0">
<font class="alert"> 后面必须带"/"符号</font></td>
</tr>
<tr>
<td class="table"> 图片采集目录</td>
<%Set rs1 = ConnItem.execute("Select top 1 Dir,MaxFileSize,FileExtName,Timeout from SK_Cj where ID=2")%>
<td colspan="2" class="table"><input name="photoDir" type="text" class="lostfocus" id="PicDir" onfocus='this.className="getfocus";this.gf="1"' onblur='this.className="lostfocus";this.gf="0"' onmouseover='this.className="getfocus"' onmouseout='if (this.gf=="0") this.className="lostfocus"' value="<% =rs1("dir") %>" gf="0">
<font class="alert"> 后面必须带"/"符号</font></td>
</tr>
<tr>
<td class="table">软件采集目录</td>
<%Set rs1 = ConnItem.execute("Select top 1 Dir,MaxFileSize,FileExtName,Timeout from SK_Cj where ID=3")%>
<td colspan="2" class="table"><input name="DownDir" type="text" class="lostfocus" id="alldir" onfocus='this.className="getfocus";this.gf="1"' onblur='this.className="lostfocus";this.gf="0"' onmouseover='this.className="getfocus"' onmouseout='if (this.gf=="0") this.className="lostfocus"' value="<% =rs1("Dir") %>" gf="0" />
<%Rs1.close : Set Rs1=Nothing%>
<font class="alert"> 后面必须带"/"符号</font></td>
</tr>
<tr>
<td height="50" colspan="3" class="title3"><div align="center">
<input type="submit" name="Submit" value="提交">
</div></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 IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj:Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
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
'取得Request.Querystring 或 Request.Form 的值
Public Function G(Str)
G = Replace(Replace(Request(Str), "'", ""), """", "")
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -