📄 config.xml.asp

📁 个人相册程序-------------供大家分享
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
      <th height=32 colspan=2 align=left >基本设置   <%=request.form("mp3_autoStart")%> 
    </tr>
    <tr>
      <td height=25 align=left >相册名
      <td height=25 align=left ><input name="name" type="text" id="name" value="<%=objphoto.SelectSingleNode("name").text%>">    
    </tr>
    <tr>
      <td height=25 align=left >相册地址    
      <td height=25 align=left ><input name="domain" type="text" id="domain" value="<%=objphoto.SelectSingleNode("domain").text%>">    
    </tr>
    <tr>
      <td height=25 align=left >皮肤文件夹位置    
      <td height=25 align=left ><input name="skin" type="text" id="skin" value="<%=objphoto.SelectSingleNode("skin").text%>">
    </tr>
    <tr>
      <td height=25 align=left >图标导航 <span class="style4">（免费版不起作用）</span>      
      <td height=25 align=left ><select name="navigation" id="navigation">
      <option value="no" selected>关闭</option>
      <option value="yes">打开</option>
    </select>
      <script>
		  CheckSel('navigation','<%=objphoto.SelectSingleNode("navigation").text%>');
		  </script>      </tr>
    <tr>
      <th height=25 colspan=2 align=left >邮件选项   
    </tr>
    <tr>
      <td height=25 align=left>发送邮件组件  
        <br>
        <span class="style2">如果您的服务器不支持下列组件，请选择不支持 </span>        
      <td height=25 align=left ><select name="module" id="module" onChange="chkselect(options[selectedIndex].value,'know1');" >
        <option value="0">不支持 
	      <option value="1">JMAIL
	      <option value="2">CDONTS 
	      <option value="3">ASPEMAIL 
		  <option value="4">win2003.CDO
	      </select>        
        <div id="know1"></div>
          <script>
		  CheckSel('module','<%=objemail.SelectSingleNode("module").text%>');
		  </script>
    </tr>
    <tr>
      <td height=25 align=left >email    
      <td height=25 align=left ><input name="email" type="text" id="email" value="<%=objemail.SelectSingleNode("email").text%>">    
    </tr>
    <tr>
      <td height=25 align=left >SMTP Server 地址    
      <td height=25 align=left ><input name="smtp" type="text" id="smtp" value="<%=objemail.SelectSingleNode("smtp").text%>">
</tr>
    <tr>
      <td height=25 align=left >邮件用户名      
      <td height=25 align=left ><input name="user" type="text" id="user" value="<%=objemail.SelectSingleNode("user").text%>">
</tr>
    <tr>
      <td height=25 align=left >邮件密码      
    <td height=25 align=left ><input name="pwd" type="password" id="pwd" value="<%=decryptstr(objemail.SelectSingleNode("pwd").text)%>">      
    </tr>
    <tr>
    <th height=25 colspan=2 align=left >上传设置</tr>
  <tr>
    <td width="48%" >允许的最大图片文件大小</td>
    <td width="52%" ><input name="max_size" type="text" id="max_size" value="<%=objupload.SelectSingleNode("max_size").text%>" size="6">
&nbsp;K </td>
    <input type="hidden" id="Forum_FaceUploadSize" value="<b>头像文件大小帮助:</b><br><li>限制上传头像文件的大小。<li>用户头像除上传限制外，请查看“用户选项”相关设置。">
  </tr>
  <tr>
    <td class=Forumrow >选取上传组件:</td>
    <td class=Forumrow ><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>
    <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>
    <td class=ForumRow>生成预览图片大小设置(宽度|高度):</td>
    <td class=ForumRow> 宽度：
        <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>
    <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>
    <td class=ForumRow>图片水印设置开关:</td>
    <td class=ForumRow><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>
    <td >上传图片添加水印文字信息（可为空或0）:</td>
    <td ><input name="watermark_font" type="text" id="watermark_font" value="<%=objupload.SelectSingleNode("watermark_font").text%>" size=40>
    </td>
  </tr>
  <tr>
    <td class=ForumRow>上传添加水印字体大小:</td>
    <td class=ForumRow><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>
    <td >上传添加水印字体颜色:</td>
    <td ><input type="hidden" name="watermark_font_color" id="watermark_font_color" value="<%=objupload.SelectSingleNode("watermark_font_color").text%>">
        <img src="images/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>
    <td class=ForumRow>上传添加水印字体名称:</td>
    <td class=ForumRow><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>
    <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>
    <td class=ForumRow>上传图片添加水印LOGO图片信息（可为空或0）:<br>
      填写LOGO的图片相对路径</td>
    <td class=ForumRow><input type="text" name="watermark_img_path" size=40 value="<%=objupload.SelectSingleNode("watermark_img_path").text%>">
    </td>
  </tr>
  <tr>
    <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>
    <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="images/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>
    <td class=ForumRow>水印文字或图片的长宽区域定义:<br>
      如水印图片的宽度和高度。</td>
    <td class=ForumRow> 宽度：
        <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>
    <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>
上一页 12
⌨️ 快捷键说明

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