?? fenlei_2edit.asp
字號(hào):
<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<%
dim rs,sql,class1,class2,paixu,classid,leibie,tijiao
tijiao=request("tijiao")
if tijiao<>"" then
classid=trim(request("classid"))
class1=request("class1")
class2=trim(request("class2"))
paixu=trim(request("paixu"))
if class1="" then
response.write "<li>錯(cuò)誤，類別為空！"
call cl()
response.end
end if
if class2="" then
response.write "<li>錯(cuò)誤，類別為空！"
call cl()
response.end
end if
if paixu="" then
response.write "<li>錯(cuò)誤，類別為空！"
call cl()
response.end
end if
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [class2] where id="&cstr(classid)
rs.open sql,conn,1,3
leibie=trim(rs("class2"))
if class2=leibie then
rs("paixu")=paixu
rs.update
response.write "排序修改成功！"
call cl()
response.end
end if
if rs.eof then
response.write "參數(shù)錯(cuò)誤！"
call cl()
else
rs("class1")=class1
rs("class2")=class2
rs("paixu")=paixu
rs.update
response.write "修改成功！！"
call cl()
end if
rs.close
set rs=nothing
closedb
%>
<%sub cl()%>
<body onLoad="setTimeout(window.close, 2000)">
<%end sub%>
<%else%>
<title>修改分類</title>
<link href="inc_style.css" rel="stylesheet" type="text/css">
<body>
<p align="center"><img border="0" src="img/list_bo.gif" width="600" height="12"></p>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#CCCCCC" width="325" height="68">
<form action="fenlei_2editchk.asp?classid=<%=request("classid")%>" name="cnmai" method="POST">
<tr>
<td height="25" bgcolor="#FEEEBC" width="323">
<p align="center">所屬大類：
<select name="class1" size="1" style="font-size: 9pt">
<%
dim cnmai,id
class1=request("class1")
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [class1] order by paixu desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "沒(méi)有類別請(qǐng)?zhí)砑樱?quot;
response.end
else
Do while not rs.eof
id=cstr(rs("id"))
if trim(request("class1"))=id then
cnmai="selected"
else
cnmai=""
end if
response.write "<option " & cnmai & " value=" + Cstr(rs("id")) + ">" + rs("class1") + "</option>"
rs.MoveNext
Loop
end if
rs.close
set rs=nothing
closedb
%>
</select>
</td>
</tr>
<tr>
<td height="25" style="border-bottom-style: none; border-bottom-width: medium" width="323">
<p align="center">分類名稱：<input type="text" name="class2" size="19" value="<%=request("class2")%>"></p>
</td>
</tr>
<tr>
<td height="25" align="center" style="border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" width="323">
<p>排序數(shù)字：<input type="text" name="paixu" size="19" value="<%=request("paixu")%>"></td>
</tr>
<tr>
<td height="25" style="border-top-style: none; border-top-width: medium">
<p align="center">
<input type="submit" value=" 提 交" name="B1" style="color: #000000; "></td>
</tr>
</form>
</table>
</div>
<%end if%>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -