📄 ow.asp
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=false
Response.Expires=0
%>
<!-- #include file="../dsn.asp" -->
<!-- #include file="../links.asp" -->
<%
set cn=Server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs=server.CreateObject("ADODB.Recordset")
id=Request.QueryString ("id")
mode=trim(Request.QueryString ("mode"))
tabname=trim(Request.QueryString ("tabname"))
if id="" then
id=0
else
id=cint(id)
end if
if id=0 or tabname="" then Response.End
wz="left"
if Request.ServerVariables("REQUEST_METHOD")="POST" then
content=trim(Request.Form ("instbody"))
if mode="88" then
wz=trim(Request.Form ("r1"))
%>
<script language=Javascript>
window.opener.top.main.instpic.picwz.value="<%=wz%>";
window.close();
</script>
<%end if
end if
htmlname="ow.asp?id="&id&"&tabname="+tabname+"&mode=88"
%>
<html>
<head>
<title>插入图片</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="FONT.CSS" type="text/css">
</head>
<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form name="form2" action="<%=htmlname%>" method="post">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" class=font1 bgcolor="#ffffff">
<tr>
<td>
<input type=radio name=r1 value="left" checked>居左
<input type=radio name=r1 value="right">居右
<input type=radio name=r1 value="center">居中
</td>
</tr>
<tr><td><input type=submit name=s1 value="确认提交"><input type=button name=s2 value="取消重填"></td></tr>
<tr><td><textarea rows=15 cols=70 name=instbody style="font-family:宋体" ><%=content%></textarea></td></tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -