📄 admin_fenleiedit.asp

📁 图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统

💻 ASP

字号:

<!--#include file=CONN.ASP-->
<%if session(hxCacheName&"_admin")<>"OK" then
    response.redirect("admin_login.asp")
    end if
 if request.cookies(hxCacheName&"_rank")("rank")>2 then
  	response.write "<script language='javascript'>"
	response.write "alert('您的级别不够！');"
	response.write "location.href='javascript:history.go(-1)';"			
	response.write "</script>"
    end if%>

<%'===========================================
'天天智能友情链接管理系统
'天天DV网制作 http://www.ttdv.cn
'电脑家园http://www.pc326.com
'文秘家园http://www.wm326.com
'博大网址库http://www.ip126.com

'可自由传播和免费使用，但必须保留此完整版权信息
'本程序撷取了ITlearner、博大网址库智能友情链接系统、飞
'越智能友情链接系统等优秀程序中的源代码，对他们的作者表示感谢
'=============================================
%>
<%
dim rs,sql,name1,Orderid
if request("dick")="ok" then
call ok()
response.end
end if
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [tt_WebType] 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
name1=rs("name")
Orderid=rs("Orderid")
rs.close
set rs=nothing
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改分类</title>
<link href="../style.css" rel="stylesheet" type="text/css">
</head>

<body topmargin="0" leftmargin="0">

<center>
<form method="POST" action="admin_fenleiedit.asp?dick=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="#BDBEDE" 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="name1" size="20" value="<%=name1%>"></td>
  </tr>
  <tr>
    <td style="border-top: medium none; border-bottom: medium none" align="middle" width="322" height="25">
    排序数字：<input value="<%=Orderid%>" name="Orderid" size="20"></td>
  </tr>
  <tr>
    <td style="border-top: medium none" width="322" height="25">
    <p align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    <input style="color: #000000; border: 0px solid #000000; background-color: #eeeeee" type="submit" value="确认修改" name="B1"></td>
  </tr>
</table>
</form>
</center>
</body>
</html>
<%
sub ok()
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [tt_WebType] where id="&cstr(request("id"))
rs.open sql,conn,1,3
rs("name")=request("name1")
rs("Orderid")=request("Orderid")
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 + -