⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 sysparameter.asp

📁 asp源码 图片ASP整站
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
</style>
</head>
<link href="../../../CSS/FS_css.css" rel="stylesheet">
<script src="../../SysJS/PublicJS.js" language="JavaScript"></script>
<body bgcolor="#FFFFFF" topmargin="2" leftmargin="2" scroll=yes onLoad="ShowInfo(<%=RsConfig("MarkComponent")%>);ShowThumbnailInfo(<%=RsConfig("ThumbnailComponent")%>);ShowThumbnailSetting(<%=RsConfig("RateTF")%>)">
<form name=form method=post action="" >
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
      <td height="26" colspan="5" valign="middle" bgcolor="#EEEEEE"> 
        <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width=35 align="center" alt="保存" onClick="document.form.submit();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
		  <td width=2 class="Gray">|</td>
		  <td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
          <td width="905"> <input type=hidden name=operation value=Modify> </tr>
      </table>
	  </td>
  </tr>
</table>
  <table width="100%" border="0" cellpadding="2" cellspacing="1"  bordercolor="e6e6e6" bgcolor="#E3E3E3">
    <tr bgcolor="#FFFFFF"> 
      <td colspan="5" height="1"></td>
    </tr>
    <tr valign="middle" bgcolor="#F2F2F2"> 
      <td height="23" colspan="2"align="left"><strong>系统参数</strong></td>
    </tr>
    <tr valign="middle" bgcolor="#F5F5F5"> 
      <td width="184" height="23"align="right"> 您的信箱</td>
      <td width="613" height="1"> <input name="Email" type="text" value="<%=RsConfig("Email")%>" size="30"> 
      </td>
    </tr>
    <tr valign="middle" bgcolor="#F5F5F5" style="display:none"> 
      <td height="23"> <div align="right">当前版本</div></td>
      <td width="613" height="23" bgcolor="#F5F5F5"> <input name="Version" type="text"  value="<%=RsConfig("Version")%>" size="30" disabled> 
      </td>
    </tr>
    <tr valign="middle" bgcolor="#F5F5F5" > 
      <td height="23"> <div align="right">程序使用的域名</div></td>
      <td width="613" height="23" bgcolor="#F5F5F5"> <input name="DoMain" type="text" id="DoMain" value="<%=RsConfig("DoMain")%>" size="30"> 
        <font color="#FF0000">(请使用http://标识),后面不能带&quot;/&quot;符号</font></td>
    </tr>
    <tr valign="middle" bgcolor="#F5F5F5"> 
      <td height="23"> <div align="right">站点名称</div></td>
      <td width="613" height="23" bgcolor="#F5F5F5"> <input name="SiteName" type="text" value="<%=RsConfig("SiteName")%>" size="30"></td>
    </tr>
    <tr valign="middle" bgcolor="#F5F5F5"> 
      <td height="23"> <div align="right">上传文件的类型</div></td>
      <td width="613" height="23" bgcolor="#F5F5F5"> <input name="UpFileType" type="text"  value="<%=RsConfig("UpFileType")%>" size=30> 
        <span class="Notices"><font color="#FF0000">(请用“,”逗号隔开) </font></span></td>
    </tr>
    <tr valign="middle" bgcolor="#F5F5F5"> 
      <td height="23"> <div align="right">限制上传文件大小</div></td>
      <td width="613" height="23" bgcolor="#F5F5F5"> <input type="text" size=10 name="UpFileSize" value="<%=RsConfig("UpFileSize")%>" >
        KB</td>
    </tr>
    <tr bgcolor="#F5F5F5" > 
      <td height="23" align="right">选择图片缩略图功能</td>
      <td width="613" bgcolor="#F5F5F5"> <select name="ThumbnailComponent" id="ThumbnailComponent" onChange="ShowThumbnailInfo(this.value)" style="width:30%">
          <option value=0 <%If RsConfig("ThumbnailComponent") = "0" Then Response.Write("selected") End if%>>关闭 
          <option value=1 <%If RsConfig("ThumbnailComponent") = "1" Then Response.Write("selected") End if%>>AspJpeg组件 
          <option value=2 <%If RsConfig("ThumbnailComponent") = "2" Then Response.Write("selected") End if%>>wsImage组件 
          <option value=3 <%If RsConfig("ThumbnailComponent") = "3" Then Response.Write("selected") End if%>>SA-ImgWriter组件 
          <option value=4 <%If RsConfig("ThumbnailComponent") = "4" Then Response.Write("selected") End if%>>CreatePreviewImage组件 
        </select> <span id="ThumbnailComponentInfo"></span> </td>
    </tr>
    <tr bgcolor="#F5F5F5" id ="ThumbnailSetting" style="display:none"> 
      <td height="23" align="right"> <input type="radio" name="RateTF" value="1" onClick="ShowThumbnailSetting(1);" <%If RsConfig("RateTF") = "1" Then Response.Write("checked") End if%>>
        按比例 
        <input type="radio" name="RateTF" value="0" onClick="ShowThumbnailSetting(0);" <%If RsConfig("RateTF") = "0" Then Response.Write("checked") End if%>>
        按大小 </td>
      <td width="613" bgcolor="#F5F5F5"> <div id ="ThumbnailSetting0" style="display:none">宽度： 
          <input type="text" name="ThumbnailWidth" size=10 value="<%=RsConfig("ThumbnailWidth")%>">
          象素高度： 
          <input type="text" name="ThumbnailHeight" size=10 value="<%=RsConfig("ThumbnailHeight")%>">
          象素</div>
        <div id ="ThumbnailSetting1" style="display:none">比例： 
          <input type="text" name="ThumbnailRate" size=10 value="<%If Left(RsConfig("ThumbnailRate"),1) = "." Then Response.Write("0"&RsConfig("ThumbnailRate")) Else Response.Write(RsConfig("ThumbnailRate")) End if%>">
          如60%请填写0.6 </div></td>
    </tr>
    <tr bgcolor="#F5F5F5" > 
      <td height="23" align="right">选择图片水印功能</td>
      <td width="613" bgcolor="#F5F5F5"> <select name="MarkComponent" id="MarkComponent" onChange="ShowInfo(this.value)" style="width:30%">
          <option value=0 <%If RsConfig("MarkComponent") = "0" Then Response.Write("selected") End if%>>关闭 
          <option value=1 <%If RsConfig("MarkComponent") = "1" Then Response.Write("selected") End if%>>AspJpeg组件 
          <option value=2 <%If RsConfig("MarkComponent") = "2" Then Response.Write("selected") End if%>>wsImage组件 
          <option value=3 <%If RsConfig("MarkComponent") = "3" Then Response.Write("selected") End if%>>SA-ImgWriter组件 
        </select> <span id="ComponentInfo"></span> </td>
    </tr>
    <tr align="left" valign="top" bgcolor="#F5F5F5" id="WaterMarkSetting" style="display:none" cellpadding="0" cellspacing="0"> 
      <td colspan=2> <table width=100% cellpadding="2" cellspacing="1"  bordercolor="e6e6e6" bgcolor="#E3E3E3">
          <tr bgcolor="#FFFFFF"> 
            <td width=193 height="23" align="right">水印类型</td>
            <td width="615"> <SELECT name="MarkType" id="MarkType">
                <OPTION value="1" <%If RsConfig("MarkType") = "1" Then Response.Write("selected") End if%>>文字效果</OPTION>
                <OPTION value="2" <%If RsConfig("MarkType") = "2" Then Response.Write("selected") End if%>>图片效果</OPTION>
              </SELECT> </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="23" align="right">水印文字信息（可为空）</td>
            <td> <INPUT TYPE="text" NAME="MarkText" size=40 value="<%=RsConfig("MarkText")%>"> 
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="23" align="right">水印字体大小</td>
            <td> <INPUT TYPE="text" NAME="MarkFontSize" size=10 value="<%=RsConfig("MarkFontSize")%>"> 
              <b>px</b> </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="23" align="right">水印字体颜色</td>
            <td> <input type="text" name="MarkFontColor" maxlength = 7 size = 7 id="MarkFontColor" value="<%=RsConfig("MarkFontColor")%>" readonly> 
              <img border=0 id="MarkFontColorShow" src="../../images/rect.gif" style="cursor:pointer;background-Color:<%=RsConfig("MarkFontColor")%>;" onClick="GetColor(this,'MarkFontColor');" title="选取颜色!"> 
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="23" align="right">水印字体名称</td>
            <td> <SELECT name="MarkFontName" id="MarkFontName">
                <option value="宋体" <%If RsConfig("MarkFontName") = "宋体" Then Response.Write("selected") End if%>>宋体</option>
                <option value="楷体_GB2312" <%If RsConfig("MarkFontName") = "楷体_GB2312" Then Response.Write("selected") End if%>>楷体</option>
                <option value="新宋体" <%If RsConfig("MarkFontName") = "新宋体" Then Response.Write("selected") End if%>>新宋体</option>
                <option value="黑体" <%If RsConfig("MarkFontName") = "黑体" Then Response.Write("selected") End if%>>黑体</option>
                <option value="隶书" <%If RsConfig("MarkFontName") = "隶书" Then Response.Write("selected") End if%>>隶书</option>
                <OPTION value="Andale Mono" <%If RsConfig("MarkFontName") = "Andale Mono" Then Response.Write("selected") End if%>>Andale 
                Mono</OPTION>
                <OPTION value="Arial" <%If RsConfig("MarkFontName") = "Arial" Then Response.Write("selected") End if%>>Arial</OPTION>
                <OPTION value="Arial Black" <%If RsConfig("MarkFontName") = "Arial Black" Then Response.Write("selected") End if%>>Arial 
                Black</OPTION>
                <OPTION value="Book Antiqua" <%If RsConfig("MarkFontName") = "Book Antiqua" Then Response.Write("selected") End if%>>Book 
                Antiqua</OPTION>
                <OPTION value="Century Gothic" <%If RsConfig("MarkFontName") = "Century Gothic" Then Response.Write("selected") End if%>>Century 
                Gothic</OPTION>
                <OPTION value="Comic Sans MS" <%If RsConfig("MarkFontName") = "Comic Sans MS" Then Response.Write("selected") End if%>>Comic 
                Sans MS</OPTION>
                <OPTION value="Courier New" <%If RsConfig("MarkFontName") = "Courier New" Then Response.Write("selected") End if%>>Courier 
                New</OPTION>
                <OPTION value="Georgia" <%If RsConfig("MarkFontName") = "Georgia" Then Response.Write("selected") End if%>>Georgia</OPTION>
                <OPTION value="Impact" <%If RsConfig("MarkFontName") = "Impact" Then Response.Write("selected") End if%>>Impact</OPTION>
                <OPTION value="Tahoma" <%If RsConfig("MarkFontName") = "Tahoma" Then Response.Write("selected") End if%>>Tahoma</OPTION>
                <OPTION value="Times New Roman" <%If RsConfig("MarkFontName") = "Times New Roman" Then Response.Write("selected") End if%>>Times 
                New Roman</OPTION>
                <OPTION value="Trebuchet MS" <%If RsConfig("MarkFontName") = "Trebuchet MS" Then Response.Write("selected") End if%>>Trebuchet 
                MS</OPTION>
                <OPTION value="Script MT Bold" <%If RsConfig("MarkFontName") = "Script MT Bold" Then Response.Write("selected") End if%>>Script 
                MT Bold</OPTION>
                <OPTION value="Stencil" <%If RsConfig("MarkFontName") = "Stencil" Then Response.Write("selected") End if%>>Stencil</OPTION>
                <OPTION value="Verdana" <%If RsConfig("MarkFontName") = "Verdana" Then Response.Write("selected") End if%>>Verdana</OPTION>
                <OPTION value="Lucida Console" <%If RsConfig("MarkFontName") = "Lucida Console" Then Response.Write("selected") End if%>>Lucida 
                Console</OPTION>
              </SELECT> </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="23" align="right">水印字体是否粗体</td>
            <td> <SELECT name="MarkFontBond" id="MarkFontBond">
                <OPTION value=0 <%If RsConfig("MarkFontBond") = "0" Then Response.Write("selected") End if%>>否</OPTION>
                <OPTION value=1 <%If RsConfig("MarkFontBond") = "1" Then Response.Write("selected") End if%>>是</OPTION>
              </SELECT> </td>
          </tr>
          <!-- 上传图片添加水印LOGO图片定义 -->
          <tr bgcolor="#FFFFFF"> 
            <td height="23" align="right">水印LOGO图片（可为空）<br> </td>
            <td> <INPUT TYPE="text" NAME="MarkPicture" size=40 value="<%=RsConfig("MarkPicture")%>">
              填写LOGO的图片相对路径 </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="23" align="right">水印LOGO图片透明度</td>
            <td> <INPUT TYPE="text" NAME="MarkOpacity" size=10 value="<%If Left(RsConfig("MarkOpacity"),1) = "." Then Response.Write("0"&RsConfig("MarkOpacity")) Else Response.Write(RsConfig("MarkOpacity")) End if%>">
              如60%请填写0.6 </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="23" align="right">水印图片去除底色</td>
            <td> <INPUT TYPE="text" NAME="MarkTranspColor" ID="MarkTranspColor" maxlength = 7 size = 7 value="<%=RsConfig("MarkTranspColor")%>"> 
              <img border=0 id="MarkTranspColorShow" src="../../images/rect.gif" style="cursor:pointer;background-Color:<%=RsConfig("MarkTranspColor")%>;" onClick="GetColor(this,'MarkTranspColor');" title="选取颜色!"> 
              保留为空则水印图片不去除底色。 </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="23" align="right">水印图片的长宽区域定义<br> </td>
            <td> 宽度
<INPUT TYPE="text" NAME="MarkWidth" size=10 value="<%=RsConfig("MarkWidth")%>">
              象素 高度： 
              <INPUT TYPE="text" NAME="MarkHeight" size=10 value="<%=RsConfig("MarkHeight")%>">
              象素 如水印图片的宽度和高度。 </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="23" align="right">水印LOGO位置坐标</td>
            <td> <SELECT NAME="MarkPosition" id="MarkPosition">
                <option value="1" <%If RsConfig("MarkPosition") = "1" Then Response.Write("selected") End if%>>左上</option>
                <option value="2" <%If RsConfig("MarkPosition") = "2" Then Response.Write("selected") End if%>>左下</option>
                <option value="3" <%If RsConfig("MarkPosition") = "3" Then Response.Write("selected") End if%>>居中</option>
                <option value="4" <%If RsConfig("MarkPosition") = "4" Then Response.Write("selected") End if%>>右上</option>
                <option value="5" <%If RsConfig("MarkPosition") = "5" Then Response.Write("selected") End if%>>右下</option>
              </SELECT> </td>
          </tr>
        </table></td>
    </tr>
    <tr valign="middle" bgcolor="#F5F5F5"> 
      <td height="22"> <div align="right">发送邮件SMTP服务器</div></td>
      <td width="613" height="22" bgcolor="#F5F5F5"> <input name="MailServer" type="text" id="MailServer"  value="<%=RsConfig("MailServer")%>" size=30> 
      </td>
    </tr>
    <tr valign="middle" bgcolor="#F5F5F5"> 
      <td height="21"> <div align="right">发送邮件SMTP服务器用户名</div></td>
      <td width="613" height="21" bgcolor="#F5F5F5"> <input name="MailName" type="text" id="MailName"  value="<%=RsConfig("MailName")%>" size=30></td>
    <tr valign="middle" bgcolor="#F5F5F5"> 
      <td height="21"> <div align="right">发送邮件SMTP服务器密码</div></td>
      <td height="21"> <input name="MailPass" type="password" id="MailPass"  value="<%=RsConfig("MailPass")%>" size=30></td>
    <tr valign="middle" bgcolor="#F5F5F5">
      <td height="21"><div align="right">是否显示帮助</div></td>
      <td height="21"><input name="HelpTF" type="radio" value="0" <%if RsConfig("HelpTF")=0 then response.Write("checked") %>>
        否 
        <input type="radio" name="HelpTF" value="1"  <%if RsConfig("HelpTF")=1 then response.Write("checked") %>>
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -