📄 inform.asp
字号:
<!--#include file="../Session.asp"-->
<HTML>
<HEAD>
<title>弹出广告设置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../../css/site.css" type="text/css">
</HEAD>
<BODY>
<%if request("action")="save" then
call Msave()
else
call Mails()
end if
sub mails
on error resume next
set rs =conn.execute("select InForm,IsForm from [Config]")
if not rs.eof then
InForm=split(rs(0),"＃")
IsForm=rs("IsForm")
end if
rs.close
set rs=nothing
%>
<form name="myform" method="post" action="../Sorry.asp">
<input type=hidden name=action value=save>
<input type="hidden" name="Body" id="Body" value="<%=server.HTMLEncode(InForm(0))%>">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bordercolor="#000000" style="border-collapse: collapse;font-family: 宋体; font-size: 9pt">
<tr align="center">
<td height="50" colspan="6" class="tdstyle"><font size="3"><strong>首面弹出广告设置</strong></font></td>
</tr>
<tr>
<td width="15%" height="20" align="center" class="tdstyle">是否弹出</td>
<td height="20" class="tdstyle"><input type=radio name="IsForm" value="0" <%if IsForm=0 then%>checked<%end if%>>否 <input type=radio name="IsForm" value="1" <%if IsForm=1 then%>checked<%end if%>>是</td>
<td height="20" align="center" class="tdstyle">弹出广告宽度</td>
<td height="20" class="tdstyle"> <input size="6" name="Body" value="<%=InForm(1)%>">象素</td>
<td height="20" align="center" class="tdstyle">弹出广告高度</td>
<td height="20" class="tdstyle"> <input size="6" name="Body" value="<%=InForm(2)%>">象素</td>
</tr>
<tr>
<td height="20" align="center" class="tdstyle">标题</td>
<td colspan="5" height="20" class="tdstyle"> <input size="70" name="Body" value="<%=InForm(3)%>"></td>
</tr>
<tr>
<td align="center" class="tdstyle"> <a target="_blank" href="../../Ads/InForm.htm">广告内容</a></td>
<td colspan="5" class="tdstyle"><!--#include file="../inc/HtmlEdit.htm" --></td>
</tr>
<tr>
<td height="30" colspan="6" align="center" class="tdstyle">
<input type=Submit class=button value="提 交" name=Submit ONCLICK="javascript:return checkadd()">
<input type=reset name=Submit2 class=button value="清 除" onclick="ClearReset()"></td>
</tr>
</table>
</form>
</BODY>
</HTML>
<%end sub %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -