📄 bodyclassr2.asp
字号:
<!--#include virtual="/include/check.asp"-->
<% CheckAdminIsLogin("信息管理") %>
<!--#include virtual="/include/conn.asp"-->
<%
flag=request.querystring("action")
anclass=request.querystring("anclass")
if anclass<>empty then anclass=" --> " & anclass
okid=request.QueryString("id")
if len(okid)>3 then
temp=right(okid,len(okid)-3)
if left(okid,3) ="one" then
sql="select * from anclass where anclassid="&temp&" order by lmorder"
else
sql="select * from nclass where nclassid="&temp&" order by lmorder"
end if
set rs=server.createobject("adodb.recordset")
rs.Open sql ,conn,3,3
if flag="yes" then
rs("lmflag1")=Request.Form("lmflag1")
rs("lmflag2")=Request.Form("lmflag2")
rs("lmflag3")=Request.Form("lmflag3")
rs("lmflag4")=Request.Form("lmflag4")
rs("lmflag5")=Request.Form("lmflag5")
rs("lmflag6")=Request.Form("lmflag6")
rs.update
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript" src="../js/Manage.js" type="text/javascript"></script>
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
<tr>
<th colspan="3">== 右栏相应参数设置 ==</th>
</tr>
<tr>
<td>
<select name="bodyclassl2" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
<option >选择要设定栏目</option>
<%
set rs2=server.createobject("adodb.recordset")
rs2.Open "select * from anclass where lmflag0=2 order by lmorder",conn,1,1
do while not rs2.eof %>
<option value="bodyclassr2.asp?id=<%="one" &rs2("anclassid")%>&anclass=<%=rs2("classname")%>" <%if rs2("anclassid")=cint(temp) then %>selected<%end if%>><%=trim(rs2("classname"))%></option>
<%rs2.movenext
loop
rs2.close
set rs2=server.createobject("adodb.recordset")
rs2.Open "select * from nclass where lmflag0=2 order by lmorder",conn,1,1
do while not rs2.eof %>
<option value="bodyclassr2.asp?id=<%="two" &rs2("nclassid")%>&anclass=<%=rs2("classname")%>" <%if rs2("nclassid")=cint(temp) then %>selected<%end if%>><%=trim(rs2("classname"))%></option>
<%rs2.movenext
loop
rs2.close
set rs2=nothing
%>
</select>
<font color="#FF0000"><%=anclass%></font><br>
</td>
</tr>
<%if len(okid)>3 then%>
<form name="bodyform" method="post" action="?action=yes&id=<%=okid%>">
<tr align="right">
<td height="207" colspan="3" class="forumRowHighlight">
<table border="0" width="100%" id="table1" style="border-collapse: collapse" height="199">
<tr>
<td colspan="2"><span style="font-size: 9pt">栏目条图像(gif、jpgf格式)：</span><span style="font-size: 10pt"><input type="text" name="lmflag1" size="40" tabindex="1" value="<%=rs("lmflag1")%>"></span><input type="button" name="Submit1" value="上传图像" onClick="window.open('situjiaduotu.asp?formname=bodyform&editname=lmflag1&uppath=rightclass&filelx=.gif.jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">(大小：720*30)</td>
</tr>
<tr>
<td colspan="2">背景颜色<span style="font-size: 9pt">(输入相应颜色代码值)：</span><span style="font-size: 10pt"><input type="text" name="lmflag2" size="20" tabindex="1" value="<%=rs("lmflag2")%>"></span></td>
</tr>
<tr>
<td colspan="2"><span style="font-size: 9pt">背景图像(gif、jpg)：</span><span style="font-size: 10pt"><input type="text" name="lmflag3" size="50" tabindex="2" value="<%=rs("lmflag3")%>"></span><input type="button" name="Submit2" value="上传图像" onClick="window.open('situjiaduotu.asp?formname=bodyform&editname=lmflag3&uppath=rightclass&filelx=.gif.jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')"></td>
</tr>
<tr>
<td colspan="2">边框颜色<span style="font-size: 9pt">(输入相应颜色代码值) ：</span><span style="font-size: 10pt"><input type="text" name="lmflag4" size="20" tabindex="1" value="<%=rs("lmflag4")%>"></span></td>
</tr>
<tr>
<td colspan="2">“更多”<span style="font-size: 9pt">图像(gif、jpg)：</span><span style="font-size: 10pt"><input type="text" name="lmflag5" size="50" tabindex="3" value="<%=rs("lmflag5")%>"></span><input type="button" name="Submit3" value="上传图像" onClick="window.open('situjiaduotu.asp?formname=bodyform&editname=lmflag5&uppath=rightclass&filelx=.gif.jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">(大小：145*100)</td>
</tr>
<tr>
<td width="8%">显示方式：</td>
<td width="92%">
<input type="radio" value="1" name="lmflag6" <%if rs("lmflag6")="1" then%> checked <%end if%>>3
张图片</td>
</tr>
<tr>
<td width="8%"> </td>
<td width="92%">
<input type="radio" value="2" name="lmflag6" <%if rs("lmflag6")="2" then%> checked <%end if%>>左一张图像，右多项标题值</td>
</tr>
<tr>
<td width="8%"> </td>
<td width="92%">
<input type="radio" value="3" name="lmflag6" <%if rs("lmflag6")="3" then%> checked <%end if%>>左一张图像，右一项文章值</td>
</tr>
<tr>
<td width="8%"> </td>
<td width="92%">
<input type="radio" value="4" name="lmflag6" <%if rs("lmflag6")="4" then%> checked <%end if%>>右一张图像，左多项标题值</td>
</tr>
<tr>
<td width="8%"> </td>
<td width="92%">
<input type="radio" value="5" name="lmflag6" <%if rs("lmflag6")="5" then%> checked <%end if%>>右一张图像，左一项文章值</td>
</tr>
<tr>
<td width="8%"> </td>
<td width="92%">
<input type="radio" value="6" name="lmflag6" <%if rs("lmflag6")="6" then%> checked <%end if%>>仅显示一项文
章值</td>
</tr>
<tr>
<td width="8%"> </td>
<td width="92%">
<input type="radio" value="7" name="lmflag6" <%if rs("lmflag6")="7" then%> checked <%end if%>>左特显图像，右多项标题值</td>
</tr>
<tr>
<td width="8%"> </td>
<td width="92%">
<input type="radio" value="8" name="lmflag6" <%if rs("lmflag6")="8" then%> checked <%end if%>>右特显图像，左多项标题值</td>
</tr>
<tr>
<td width="8%"> </td>
<td width="92%">
<input type="radio" value="9" name="lmflag6" <%if rs("lmflag6")="9" then%> checked <%end if%>>并排12项标题值</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="30" class="forumrow" align="center">
<input type=submit class=button value="提 交" name=Submit tabindex="8">
<input type=reset name=Submit2 class=button value="清 除" tabindex="9"></td>
<td class=forumrow align="center">
</td>
<td class=forumrow align="center" nowrap> </td>
</tr>
</form>
<%else%>
<tr>
<th colspan="3">设定的栏目未选择!</th>
</tr>
<%end if%>
</table>
</body>
</html>
<% ConnClose()%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -