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

📄 editor_insertpic.asp

📁 江西旅行网整站源码下载 希望对大家有用 经过测试 安全可用
💻 ASP
字号:
🔍 
<!--#include file="editor_ChkPurview.asp"-->
<%
Call OpenConn
Dim rsConfig,PhotoObject,Thumb_DefaultWidth,Thumb_DefaultHeight
Set rsConfig = Conn.Execute("select top 1 * from PE_Config")
If rsConfig.BOF And rsConfig.EOF Then
    rsConfig.Close
    Set rsConfig = Nothing
    Response.Write "网站配置数据丢失！系统无法正常运行！"
    Response.End
Else
    PhotoObject = rsConfig("PhotoObject")
    Thumb_DefaultWidth = rsConfig("Thumb_DefaultWidth")
    Thumb_DefaultHeight = rsConfig("Thumb_DefaultHeight")
End If
rsConfig.Close
Set rsConfig = Nothing
Call CloseConn
%>
<HTML>
<HEAD>
<TITLE>批量插入图片</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="editor_dialog.css">
<base target="_self">
<script language="JavaScript">
function IsDigit(){
    return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
function ShowThumbSetting(x){
    if(eval("document.form1.CreateThumb"+x+".checked==true")){
        eval("Thumb_"+x+".style.display='';");
    }
    else{
        eval("Thumb_"+x+".style.display='none';");
    }
}
function Preview(num){
    var sfilename=document.all("FileName"+num).value;
    if(sfilename!=""){
        frmPreview.img.src=sfilename;
        frmPreview.img2.src=sfilename;
    }
    else{
        frmPreview.img.src="../images/nopic.gif";
        frmPreview.img2.src="../images/nopic.gif";
    }
    var iheight=document.all("height"+num).value;
    var iwidth=document.all("width"+num).value;
    if(iheight>0){
        if(iwidth>0){
            frmPreview.img.height=iheight;
            frmPreview.img.width=iwidth
        }
        else{
            frmPreview.img.height=iheight;
            frmPreview.img.width=iheight/frmPreview.img2.height*frmPreview.img2.width;
        }
    }
    else{
        if(iwidth>0){
            frmPreview.img.width=iwidth
            frmPreview.img.height=iwidth/frmPreview.img2.width*frmPreview.img2.height;
        }
        else{
            frmPreview.img.height=frmPreview.img2.height;
            frmPreview.img.width=frmPreview.img2.width;
        }
    }
    frmPreview.img.border=document.all("border"+num).value;
    frmPreview.img.style.borderColor =document.all("bordercolor"+num).value;
    frmPreview.img.style.filter=document.all("filter"+num).value;
    frmPreview.img.title=document.all("alttext"+num).value
}
function change_item(num){
    var p=Preview(num);
    for (td_i=0;td_i<10;td_i++){
        if (td_i==num){
            eval("td_"+td_i+".style.display='';");
            eval("tdcolor"+td_i+".style.backgroundColor='#ffffff';");
        }
        else{
            eval("td_"+td_i+".style.display=\"none\";");
            eval("tdcolor"+td_i+".style.backgroundColor='#D4D0C8'");
        }
   }
}
function mysub()
{
  esave.style.visibility="visible";
}
function SelectColor(what){
    var dEL = document.all(what);
    var sEL = document.all("s_"+what);
    var url = "editor_selcolor.asp?color="+encodeURIComponent(dEL.value);
    var arr = showModalDialog(url,window,"dialogWidth:280px;dialogHeight:250px;help:no;scroll:no;status:no");
    if (arr) {
        dEL.value=arr;
        sEL.style.backgroundColor=arr;
    }
}
//-->
</script>
</head>

<BODY bgColor=#D4D0C8 topmargin='15' leftmargin='15' >
<br>
<form name="form1" method="post" action="Upfile.asp" enctype="multipart/form-data">
  <table border='0' cellpadding='0' cellspacing='0' width='100%' align='center'>
   <tr>
     <td valign="top">
<%
    Dim i
    For i = 0 To 9
        Response.Write "<table width=100% border='0' align='center' cellpadding='0' cellspacing='2'>" & vbCrLf
        Response.Write "<tr id='tdcolor" & i & "'"
        If i = 0 Then Response.Write " bgcolor='#ffffff' "
        Response.Write " onCLICK='change_item(" & i & ")'><td width='50'>图片" & i + 1 & "：</td>" & vbCrLf
        Response.Write "<td><input name='FileName" & i & "' type='FILE'  size='30' onChange='change_item(" & i & ")' ></td>" & vbCrLf
        Response.Write "<td> 属 性>>> </td>" & vbCrLf
        Response.Write "</tr></table>" & vbCrLf
    Next
%>
<br>
<br>
链接地址:
<input name="LinkUrl" type="text" id="LinkUrl" value="http://" size="40" maxlength="200">
<br>
<br>
说明：你可以在上传这些图片时，一次性加上链接，如果要修改链接，可以在上传完成后在编辑器修改链接属性。</td>
     <td valign='top'><fieldset><legend>图片参数设置</legend>
        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height='220' align="center"><iframe id='frmPreview' width='350' height='220' frameborder='1' src='editor_imgPreview.asp'></iframe></td>
          </tr>
          <tr>
            <td>
<%
    For i = 0 To 9
        Response.Write "<table id='td_" & i & "' width=100%  height=100% border='0' align='center' cellpadding='0' cellspacing='2'"
        If i > 0 Then Response.Write " style='display:none'"
        Response.Write ">" & vbCrLf
        Response.Write "<tr><td colspan='2'>说明文字：<input name='alttext" & i & "' size=38 maxlength='100' onChange='Preview(" & i & ")'></td></tr>" & vbCrLf
        Response.Write "<tr><td>边框粗细：<input name='border" & i & "' ONKEYPRESS='event.returnValue=IsDigit();'  value='0' size=5 maxlength='2' onChange='Preview(" & i & ")'>像素</td>" & vbCrLf
        Response.Write "<td>边框颜色：<input name ='bordercolor" & i & "' type=text size=7 value='' onChange='Preview(" & i & ")'>"
        Response.Write "&nbsp;<img border=0 src='images/rect.gif' width=18 style='cursor:hand' id='s_bordercolor" & i & "' onclick=""SelectColor('bordercolor" & i & "');Preview(" & i & ");""></td></tr>"
        Response.Write "<tr><td>特殊效果：<select name='filter" & i & "' onChange='Preview(" & i & ")'>" & vbCrLf
        Response.Write "<option value=''  selected>不应用</option>" & vbCrLf
        Response.Write "<option value='Alpha(Opacity=50)'>半透明效果</option>" & vbCrLf
        Response.Write "<option value='Alpha(Opacity=0, FinishOpacity=100, Style=1, StartX=0,StartY=0, FinishX=100, FinishY=140)'>线型透明效果</option>" & vbCrLf
        Response.Write "<option value='Alpha(Opacity=10, FinishOpacity=100, Style=2, StartX=30,StartY=30, FinishX=200, FinishY=200)'>放射透明效果</option>" & vbCrLf
        Response.Write "<option value='blur(add=1,direction=14,strength=15)'>模糊效果</option>" & vbCrLf
        Response.Write "<option value='blur(add=true,direction=45,strength=30)'>风动模糊效果</option>" & vbCrLf
        Response.Write "<option value='Wave(Add=0, Freq=60, LightStrength=1, Phase=0,Strength=3)'>正弦波纹效果</option>" & vbCrLf
        Response.Write "<option value='gray'>黑白照片效果</option>" & vbCrLf
        Response.Write "<option value='Chroma(Color=#FFFFFF)'>白色为透明</option>" & vbCrLf
        Response.Write "<option value='DropShadow(Color=#999999, OffX=7, OffY=4, Positive=1)'>投射阴影效果</option>" & vbCrLf
        Response.Write "<option value='Shadow(Color=#999999, Direction=45)'>阴影效果</option>" & vbCrLf
        Response.Write "<option value='Glow(Color=#ff9900, Strength=5)'>发光效果</option>" & vbCrLf
        Response.Write "<option value='flipv'>垂直翻转显示</option>" & vbCrLf
        Response.Write "<option value='fliph'>左右翻转显示</option>" & vbCrLf
        Response.Write "<option value='grays'>降低彩色度</option>" & vbCrLf
        Response.Write "<option value='xray'>X光照片效果</option>" & vbCrLf
        Response.Write "<option value='invert'>底片效果</option>" & vbCrLf
        Response.Write "</select>" & vbCrLf
        Response.Write "</td>" & vbCrLf
        Response.Write "<td>图片位置：<select name='aligntype" & i & "'>" & vbCrLf
        Response.Write "<option value='' selected>默认位置" & vbCrLf
        Response.Write "<option value='left'>居左" & vbCrLf
        Response.Write "<option value='right' >居右" & vbCrLf
        Response.Write "<option value='top'>顶部" & vbCrLf
        Response.Write "<option value='middle'>中部" & vbCrLf
        Response.Write "<option value='bottom'>底部" & vbCrLf
        Response.Write "<option value='absmiddle'>绝对居中" & vbCrLf
        Response.Write "<option value='absbottom'>绝对底部" & vbCrLf
        Response.Write "<option value='baseline'>基线" & vbCrLf
        Response.Write "<option value='texttop'>文本顶部" & vbCrLf
        Response.Write "</select></td>" & vbCrLf
        Response.Write "</tr>" & vbCrLf
        Response.Write "<tr>" & vbCrLf
        Response.Write "<td>图片宽度：<input name='width" & i & "' value='' ONKEYPRESS='event.returnValue=IsDigit();' size=4 maxlength='4' onChange='Preview(" & i & ")'>像素</td>" & vbCrLf
        Response.Write "<td>图片高度：<input name='height" & i & "' value='' onKeyPress='event.returnValue=IsDigit();' size=4 maxlength='4' onChange='Preview(" & i & ")'>像素</td>" & vbCrLf
        Response.Write "</tr><tr>" & vbCrLf
        Response.Write "<td>上下间距：<input name='vspace" & i & "' ONKEYPRESS='event.returnValue=IsDigit();' value='0' size=4 maxlength='2'>像素</td>" & vbCrLf
        Response.Write "<td>左右间距：<input name='hspace" & i & "' onKeyPress='event.returnValue=IsDigit();'  value='0' size=4 maxlength='2'>像素</td>" & vbCrLf
        Response.Write "</tr>" & vbCrLf
        If PhotoObject > 0 Then
            Response.Write "<tr><td>是否加水印：<INPUT TYPE='checkbox' NAME='AddWatermark" & i & "' value='Yes' checked></td>" & vbCrLf
            Response.Write "<td>是否生成缩略图：<INPUT TYPE='checkbox' NAME='CreateThumb" & i & "' value='Yes' onCLICK='javascript:ShowThumbSetting(" & i & ");'"
            If i = 0 then 
                Response.Write "checked"
            End If
            Response.Write "></td></tr>"
            Response.Write "<tr style='display:"
            If i > 0 then 
                Response.Write "none"
            End If
            Response.Write"' id='Thumb_" & i & "'><td>缩略图宽度：<input name='ThumbWidth" & i & "' ONKEYPRESS='event.returnValue=IsDigit();' value='" & Thumb_DefaultWidth & "' size=4 maxlength='3'>像素</td>" & vbCrLf
            Response.Write "<td>缩略图高度：<input name='ThumbHeight" & i & "' onKeyPress='event.returnValue=IsDigit();'  value='" & Thumb_DefaultHeight & "' size=4 maxlength='3'>像素</td></tr>" & vbCrLf
        End If
        Response.Write "</table>" & vbCrLf
    Next
%>
</td>
          </tr>
        </table></fieldset>
    </td></tr>
    <tr><td align='center' colspan='2' >
    <input name='FileType' type='hidden' value='BatchPic'>
    <input name='ChannelID' type='hidden' id='ChannelID' value='<%=ChannelID%>'>
    <input name='cmdOK' type='submit' id='cmdOK' value='  确定  '  onclick='javascript:mysub()'>&nbsp;&nbsp;
    <input name='cmdCancel' type=button id='cmdCancel' onclick='window.close();' value='  取消  '>
     </td>
  </tr>
</table>
 <div id="esave" style="position:absolute; top:10px; left:200px; z-index:1; visibility:hidden">
    <TABLE WIDTH=400 BORDER=0 CELLSPACING=0 CELLPADDING=0>
      <TR><td width=20%></td>
    <TD width="60%">
    <TABLE WIDTH=100% height=100 BORDER=0 CELLSPACING=1 CELLPADDING=0>
    <TR>
      <td bgcolor="#0033FF" align=center><b><marquee align="middle" behavior="alternate" scrollamount="5"><font color=#FFFFFF>...文件上传中...请等待...</font></marquee></b></td>
    </tr>
    </table>
    </td><td width='20%'></td>
    </tr>
    </table>
  </div>
</form>
</body>
</html>

⌨️ 快捷键说明

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