📄 pic.asp

📁 台讯企业精美版.适合企事业单位用.方便易学.不会做网站也能建网站.
💻 ASP
字号:
<%
'***********************************************************************************' 产品名称：台讯企业全站管理系统（V2006简体中文版）' 程序开发：HECHENn（QQ：34103037　Emial：hechenn@126.com）' Copyright 2006 txcodes.com - All Rights Reserved. '***********************************************************************************
dim Action
Action=replace(request.querystring("Action"),"'","")
response.Write "<html>"&_
               "<head>"&_
               "<meta http-equiv=Content-Type content=text/html; charset=gb2312>"&_
               "<title>TAIXUN多功能编辑器--插入图片</title>"%>
                <script language=JavaScript event=onclick for=Ok>
                window.returnValue = a.value+"*"+c.value+"*"+d.value+"*"+e.value+"*"+f.value+"*"+g.value+"*"+h.value+"*"+i.value+"*"+j.value
                window.close();
                </script><script>
                function IsDigit()
                {
                return ((event.keyCode >= 48) && (event.keyCode <= 57));
                }
                </script><%
response.Write "<link href=Design.css rel=stylesheet TYPE=text/css>"&_
			   "</head>"&_
               "<body topmargin='0'>"&_
               "<form NAME=UploadFile>"&_
               "<TABLE WIDTH='350'  BORDER='0' ALIGN='center' cellpadding='0' CELLSPACING='0'>"&_
               "<TR>"&_
               "<TD>"&_
               "<fieldset>"&_
               "<legend>图片来源</legend>"&_
               "<TABLE  BORDER='0' cellpadding='0' CELLSPACING='0'>"&_
               "<TR>"&_
               "<TD HEIGHT='5' colspan='5'></TD>"&_
               "</TR>"
			   IF Action="a" THEN
response.Write "<TR><TD WIDTH='7'></TD><TD WIDTH='60'>图片上传：</TD><TD WIDTH='5'></TD>"&_
               "<TD><IFRAME NAME=ad src=UpLoad.asp?xPageName=Pic frameBorder=0 WIDTH=100% scrolling=no HEIGHT=20></IFRAME></TD>"&_
               "<TD WIDTH=7></TD></TR><TR><TD HEIGHT=5 colspan=5></TD></TR>"
			   End IF
response.Write "<TR><TD WIDTH='7'></TD><TD WIDTH='60'>图片地址：</TD><TD WIDTH='5'></TD>"&_
               "<TD><INPUT id=a CLASS=INPUTimage STYLE='WIDTH: 251px' NAME=a  CLASS=INPUTimage size=30></TD>"&_
               "<TD WIDTH=7></TD></TR><TR><TD HEIGHT=5 colspan=5></TD></TR></TABLE>"&_
               "</fieldset>	"&_
               "</TD></TR><TR><TD HEIGHT=5></TD></TR>"&_
               "<TR><TD>"&_
               "<fieldset>"&_
               "<legend>显示效果</legend>"
			   IF Action="a" THEN
response.Write "<TABLE  BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
               "<TR><TD HEIGHT=5 colspan=5></TD></TR>"&_
               "<TR><TD WIDTH=7></TD>"&_
               "<TD WIDTH=60>链接地址：</TD>"&_
               "<TD WIDTH=5></TD>"&_
               "<TD><INPUT id=f STYLE='WIDTH: 251px' NAME=f  CLASS=INPUTimage size=30></TD>"&_
               "<TD WIDTH=7></TD></TR>"&_
               "<TR><TD HEIGHT=5 colspan=5></TD></TR>"&_
               "<TR><TD></TD><TD>提示文字：</TD><TD></TD>"&_
               "<TD><INPUT NAME=c CLASS=INPUTimage id=c STYLE='WIDTH: 251px' title=当鼠标移到图片上时，将会出现该提示文字 size=30>"&_
               "</TD><TD></TD></TR></TABLE>"
			   End IF
			   IF Action="b" THEN
response.Write "<INPUT TYPE=hidden NAME=c VALUE=''><INPUT TYPE=hidden NAME=f VALUE=''>"
			   End IF
response.Write "<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
               "<TR><TD colspan=9 HEIGHT=5></TD></TR>"&_
               "<TR><TD WIDTH=7></TD><TD>图片宽度：</TD><TD WIDTH=5></TD>"&_
               "<TD><INPUT NAME=i TYPE=text CLASS=INPUTimage onkeypress='event.returnValue=IsDigit();' id=i size=8 maxlength=5 STYLE=width:72px></TD>"&_
               "<TD WIDTH=40></TD><TD>图片高度：</TD><TD WIDTH=5></TD>"&_
               "<TD><INPUT NAME=j TYPE=text CLASS=INPUTimage onkeypress='event.returnValue=IsDigit();' id=j size=8 maxlength=5 STYLE=width:72px></TD>"&_
               "<TD WIDTH=7></TD></TR>"&_
               "<TR><TD colspan=9 HEIGHT=5></TD></TR>"&_
               "<TR><TD WIDTH=7></TD><TD>边框粗细：</TD><TD WIDTH=5></TD>"&_
               "<TD><INPUT NAME=d TYPE=text CLASS=INPUTimage onkeypress='event.returnValue=IsDigit();' id=d VALUE=0 size=8 maxlength=2 STYLE=width:72px></TD>"&_
               "<TD WIDTH=40></TD><TD>边框颜色：</TD><TD WIDTH=5></TD>"&_
               "<TD><INPUT id=e CLASS=INPUTimage onclick=" & CHR(34) & "p=showModalDialog('EditColor.asp',window,'center:yes;dialogHeight:260px;dialogWidth:300px;help:no;scroll:no;status:no');if(p!=null){this.value=p.split('*')[0]}else{this.value=''}" & CHR(34) & " readonly STYLE='width:72px'></TD>"&_
               "<TD WIDTH=7></TD></TR>"&_
               "<TR><TD colspan=9 HEIGHT=5></TD></TR>"&_
               "<TR><TD WIDTH=7></TD><TD>特殊效果：</TD><TD WIDTH=5></TD>"&_
               "<TD><select NAME=g CLASS=INPUTimage id=g STYLE=width:72px>"&_
               "<OPTION selected>不应用"&_
               "<OPTION VALUE=filter:blur(add=1,direction=14,strength=15)>模糊效果"&_
               "<OPTION VALUE=filter:gray>黑白照片"&_
               "<OPTION VALUE=filter:flipv>颠倒显示"&_
               "<OPTION VALUE=filter:fliph>左右反转"&_
               "<OPTION VALUE=filter:xray>X 光照片"&_
               "<OPTION VALUE=filter:invert>颜色反转</OPTION>"&_
               "</select></TD><TD WIDTH=40></TD><TD>对齐方式：</TD><TD WIDTH=5></TD>"&_
               "<TD><select NAME=h size=1 CLASS=INPUTimage id=h STYLE=width:72px>"&_
               "<OPTION VALUE='' selected>默认</OPTION>"&_
               "<OPTION VALUE='left'>居左</OPTION>"&_
               "<OPTION VALUE='right'>居右</OPTION>"&_
               "<OPTION VALUE='top'>顶部</OPTION>"&_
               "<OPTION VALUE='middle'>中部</OPTION>"&_
               "<OPTION VALUE='bottom'>底部</OPTION>"&_
               "<OPTION VALUE='absmiddle'>绝对居中</OPTION>"&_
               "<OPTION VALUE='absbottom'>绝对底部</OPTION>"&_
               "<OPTION VALUE='baseline'>基线</OPTION>"&_
               "<OPTION VALUE='texttop'>文本顶部</OPTION>"&_
               "</select></TD>"&_
               "<TD WIDTH=7></TD></TR><TR><TD colspan=9 HEIGHT=5></TD></TR></TABLE>"&_
	           "</fieldset>	"&_
               "</TD></TR>"&_
               "<TR><TD HEIGHT=40 ALIGN=right>"&_
               "<INPUT id=Ok TYPE=button VALUE=' 确定 '>"&_
               "&nbsp;&nbsp;<INPUT TYPE=button onclick='window.close();' VALUE=' 取消 '></TD>"&_
               "</TR>"&_
               "</TABLE>"&_
               "</form>"&_
               "</body>"&_
               "</html>"
%>
⌨️ 快捷键说明

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