zhuedit.asp

来自「教育管理系统」· ASP 代码 · 共 72 行

ASP
72
字号
<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<%
dim zhuid
zhuid = Request.QueryString("zhuid")
no =  Request.QueryString("no")
set rs=server.createobject("adodb.recordset")
if no<>"1" then
%>
<link rel="stylesheet" type="text/css" href="css/style.css">
<body bgcolor="#666666">
<p>&nbsp;</p>
<center>
  <form name="form1" method="post" action="zhuedit.asp?zhuid=<%=zhuid%>&no=1">
    <table border="0" cellspacing="0" width="600" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0">
      <tr bgcolor="#333333"> 
        <td width="100%" height="20"> 
          <p align="center"><font color="#FFFFFF">父 类 修 改</font> 
        </td>
    </tr>
  </table>
   
    <table width="600" border="0" cellspacing="0" cellpadding="0">
      <tr bgcolor="#000000"> 
        <td> 
          <table width="100%" border="0" cellspacing="1" cellpadding="0">
            <tr><%
sql="select * from zhu where zhuid="&zhuid
rs.open sql,conn,1,1
                %> 
              <td width="150" bgcolor="#666666"> 
                <div align="right">子类名称:</div>
              </td>
              <td bgcolor="#666666"> 
                <input type="text" name="zhu" class="smallinput" size="30" maxlength="50" value="<%=rs("zhu")%>">
              </td>
            </tr>
            <tr> 
              <td colspan="2" bgcolor="#666666"> 
                <div align="center">
                  <input type="submit" name="Submit" value=" 修  改 " class="buttonface">
                  <input type="reset" name="Submit2" value=" 反  回 " class="buttonface" onClick="history.go(-1)">
                </div>
              </td>
            </tr>
          </table>
        </td>
    </tr>
  </table>
    </form>
</center>
<%else%>
<!--#include file="inc/articlechar.inc"-->
<%
if request.form("zhu")="" then 
response.write "错误提示:请输入名称!"
response.end
end if
zhu=htmlencode2(request.form("zhu"))
sql="select * from zhu where zhuid="&zhuid
rs.open sql,conn,3,3
rs("zhu")=zhu
rs.update
rs.close

response.redirect "fen.asp"
end if
rs.close 
set rs=nothing 
conn.close  
set conn=nothing
%>

⌨️ 快捷键说明

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