lx.asp

来自「一个完全仿照阿里巴巴的网站管理系统 本软件没有版权问题」· ASP 代码 · 共 57 行

ASP
57
字号
<%dbdns="../../"%>
<!--#include file="../../inc/conn.asp"-->
<!--#include file="../cook.asp"-->
<%if fla10<>1 then
response.write "<script>alert('操作权限出错,您没有权限操作些功能');history.go(-1);</Script>"
Response.End 
end if%>
<%if request("action")="save" then
'--------------------取数据-----------------------------
key=request("key")
'--------------------存数据-----------------------------
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_help where SMT_id="&request("id")
rs.open sql,conn,1,3
rs("SMT_key")=key
rs.update
rs.close
set rs=nothing

response.write"<script>parent.mm.rows='20,0,10,*';</script>"
response.write"<script>parent.main.document.location.reload();</script>"

end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<%=citycss%>
<body style="margin:5">
<%set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_help where SMT_id="&request("id")
rs.open sql,conn,1,1
key=rs("SMT_key")%>
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>
<!--================-->
<table width="500" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
<form name="form1" method="post" action="lx.asp">
<input name="id" type="hidden" value="<%=request("id")%>">
<input name="action" type="hidden" value="save">
<tr bgcolor=#efefef><td height=25 colspan="2">&nbsp;帮助管理 - <strong><%=rs("SMT_helptit")%></strong></td></tr>
<tr>
    <td height=25 align=center>
<input type="radio" name="key" value=0<%if key=0 then%> checked<%end if%> style="border:0"> 正常 
<input type="radio" name="key" value=1<%if key=1 then%> checked<%end if%> style="border:0"> 关闭 
<input type="radio" name="key" value=2<%if key=2 then%> checked<%end if%> style="border:0"> 推荐 
	</td>
</tr>
<tr align=center><td height=25><input type="submit" name="Submit" value=" 提 交 "></td></tr>
</form>
</table>
<!--================-->	
	</td>
  </tr>
</table>
<%rs.close
set rs=nothing%>

⌨️ 快捷键说明

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