📄 leixingedit.asp
字号:
<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<%
dim rs,sql,leixing,paixu,lxcolor
if request("cnmai")="ok" then
call ok()
response.end
end if
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [leixing] where id="&cstr(request("id"))
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write "<li>参数错误！"
response.end
end if
leixing=rs("leixing")
paixu=rs("paixu")
lxcolor=rs("lxcolor")
rs.close
set rs=nothing
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改总分类</title>
<link href="inc_style.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0" leftmargin="0">
<center>
<form method="POST" action="leixingedit.asp?cnmai=ok&id=<%=request("id")%>">
<table style="border-collapse: collapse" borderColor="#cccccc" height="68" cellSpacing="0" cellPadding="0" width="322" border="1">
<tr>
<td width="322" bgColor="#FFCC00" height="25">
<p align="center"><font color="#FF0000">信息种类修改</font></td>
</tr>
<tr>
<td style="border-bottom: medium none" align="middle" width="322" height="21">
信息种类：<input name="leixing" size="20" value="<%=leixing%>"></td>
</tr>
<tr>
<td style="border-top: medium none; border-bottom: medium none" align="middle" width="322" height="25">
排序数字：<input value="<%=paixu%>" name="paixu" size="20"></td>
</tr>
<tr>
<td style="border-top: medium none" width="322" height="25">
显示颜色：<select name="lxcolor">
<option <%if lxcolor="#000000" then %>selected <%end if%> style="COLOR: black" value="#000000" selected>默认黑色
</option>
<option <%if lxcolor="#99ccff" then %>selected <%end if%> style="background: #99ccff" value="#99ccff">
</option>
<option <%if lxcolor="#66ffff" then %>selected <%end if%> style="background: #66ffff" value="#66ffff">
</option>
<option <%if lxcolor="#008800" then %>selected <%end if%> style="background: #008800" value="#008800">
</option>
<option <%if lxcolor="#008888" then %>selected <%end if%> style="background: #008888" value="#008888">
</option>
<option <%if lxcolor="#0088ff" then %>selected <%end if%> style="background: #0088ff" value="#0088ff">
</option>
<option <%if lxcolor="#00a010" then %>selected <%end if%> style="background: #00a010" value="#00a010">
</option>
<option <%if lxcolor="#1100ff" then %>selected <%end if%> style="background: #1100ff" value="#1100ff">
</option>
<option <%if lxcolor="#3ec5e1" then %>selected <%end if%> style="background: #3ec5e1" value="#3ec5e1">
</option>
<option <%if lxcolor="#666666" then %>selected <%end if%> style="background: #666666" value="#666666">
</option>
<option <%if lxcolor="#50b000" then %>selected <%end if%> style="background: #50b000" value="#50b000">
</option>
<option <%if lxcolor="#880000" then %>selected <%end if%> style="background: #880000" value="#880000">
</option>
<option <%if lxcolor="#8800ff" then %>selected <%end if%> style="background: #8800ff" value="#8800ff">
</option>
<option <%if lxcolor="#888800" then %>selected <%end if%> style="background: #888800" value="#888800">
</option>
<option <%if lxcolor="#888899" then %>selected <%end if%> style="background: #888899" value="#888899">
</option>
<option <%if lxcolor="#9999ff" then %>selected <%end if%> style="background: #9999ff" value="#9999ff">
</option>
<option <%if lxcolor="#aa00cc" then %>selected <%end if%> style="background: #aa00cc" value="#aa00cc">
</option>
<option <%if lxcolor="#aaaa00" then %>selected <%end if%> style="background: #aaaa00" value="#aaaa00">
</option>
<option <%if lxcolor="#ccaa00" then %>selected <%end if%> style="background: #ccaa00" value="#ccaa00">
</option>
<option <%if lxcolor="#ab99aa" then %>selected <%end if%> style="background: #ab99aa" value="#ab99aa">
</option>
<option <%if lxcolor="ff0088" then %>selected <%end if%> style="background: #ff0088" value="#ff0088">
</option>
<option <%if lxcolor="ff00ff" then %>selected <%end if%> style="background: #ff00ff" value="#ff00ff">
</option>
<option <%if lxcolor="#ff8800" then %>selected <%end if%> style="background: #ff8800" value="#ff8800">
</option>
<option <%if lxcolor="#ff0005" then %>selected <%end if%> style="background: #ff0005" value="#ff0005">
</option>
<option <%if lxcolor="#ff88ff" then %>selected <%end if%> style="background: #ff88ff" value="#ff88ff">
</option>
<option <%if lxcolor="#ee0005" then %>selected <%end if%> style="background: #ee0005" value="#ee0005">
</option>
<option <%if lxcolor="#ee01ff" then %>selected <%end if%> style="background: #ee01ff" value="#ee01ff">
</option>
<option <%if lxcolor="#3388aa" then %>selected <%end if%> style="background: #3388aa" value="#3388aa">
</option>
<option <%if lxcolor="#000000" then %>selected <%end if%> style="background: #000000" value="#000000">
</option>
</select></td>
</tr>
<tr>
<td style="border-top: medium none" width="322" height="25">
<p align="center">
<input style="color: #000000; border: 0px solid #000000; background-color: #FFCC00" type="submit" value="提交" name="B1"></td>
</tr>
</table>
</form>
</center>
</body>
</html>
<%
sub ok()
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [leixing] where id="&cstr(request("id"))
rs.open sql,conn,1,3
rs("leixing")=request("leixing")
rs("paixu")=request("paixu")
rs("lxcolor")=request("lxcolor")
rs.update
rs.close
set rs=nothing
response.write "<li>修改信息种类成功！<br>"
response.write "<li>刷新后可以看到结果！"%>
<body onLoad="setTimeout(window.close, 3000)">
<%
end sub
closedb
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -