📄 webse_modify.asp
字号:
<%@ Language=VBScript %>
<!--#include file= "../dbase.asp"-->
<!--#include file="../../chinese/template.asp"-->
<html>
<head>
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
<link href="../mstyle.css" rel="stylesheet" type="text/css" >
<style type="text/css">
<!--
INPUT{BORDER-TOP-WIDTH: 1px; PADDING-RIGHT: 1px; PADDING-LEFT: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 9pt; BORDER-LEFT-COLOR: #cccccc; BORDER-BOTTOM-WIDTH: 1px; BORDER-BOTTOM-COLOR: #cccccc; PADDING-BOTTOM: 1px; BORDER-TOP-COLOR: #cccccc; PADDING-TOP: 1px; HEIGHT: 18px; BORDER-RIGHT-WIDTH: 1px; BORDER-RIGHT-COLOR: #cccccc; font-family: "宋体"; font-size: 12px}
textarea {border-width: 1; border-color: #000000; background-color: #efefef; font-family: "宋体"; font-size: 12px; font-style: bold;}
select {border-width: 1; border-color: #000000; background-color: #eeeeee; font-family: "宋体"; font-size: 12px; font-style: bold;}
OPTION{FONT-FAMILY: "宋体"; FONT-SIZE: 12px}
-->
</style></head>
<body>
<%
if request.QueryString("SEID")="" then
SEID=1
else
SEID=clng(request.QueryString("SEID"))
end if
rem 这里是第一次菜单的设定
if request.QueryString("FRID")="" then
FRID=7
else
FRID=clng(request.QueryString("FRID"))
end if
menuInfo = MenuSE(FRID)
%>
<form action="webSE_Deal.asp?FRID=<%=FRID%>&SEID=<%=SEID%>" method="post" target="_self">
<table width="600" height="350" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" style="BORDER-COLLAPSE: collapse" id="Table1">
<tr>
<td height="64" valign="top" align="center">
<!--right//-->
<table width="98%" border="0" cellspacing="0" cellpadding="0" bgcolor="#ffffff" id="Table4">
<tr>
<td> </td>
</tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0" bgcolor="#1C4E97" id="Table5">
<tr>
<td valign="middle"> <font color="#ffffff">.:: <font face="Comic Sans MS">
<%if not isnull(menuInfo) then
call WriteMenuContent(menuInfo,SEID,1)
end if%>
</font> ::::.....</font> </td>
<td align="right">
<% if not isnull(menuInfo) then
Response.Write("<select onchange='MM_jumpMenu(""self"",this,1)' >")
for i= 0 to ubound (menuInfo,2)
Response.Write("<option value='webSE_modify.asp?FRID="&FRID&"&SEID="&menuInfo(0,i)&"'")
if menuInfo(0,i)=SEID then Response.Write(" Selected ")
Response.Write(">"&menuInfo(1,i)&"</option>")
next
response.Write("</select>")
end if %>
</td>
</tr>
</table>
<table width="98%" height="242" border="0" cellpadding="4" cellspacing="0" id="Table6">
<tr>
<td>
<%if not isnull(menuInfo) then
Response.Write("<textarea name='content' style='width: 100%; height: 300'>")
call WriteMenuContent(menuInfo,SEID,5)
Response.Write("</textarea>")
end if%><br>
<p align="center"><input type="submit" value="更新页面内容"></p>
<p>更新内容支持html格式，请认真编排</p>
</td>
</tr>
</table>
<!--end right//-->
</td>
</tr>
</table>
</form>
</body>
</html>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -