down_type_edit.asp 共享世纪内容管理系统 2.1 build 080704 全站开源版 - ASP源码程序

www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/down_type_edit.asp
    <%Admin="DownType"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_down.asp"--><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网站内容管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<%
set rs=server.CreateObject("ADODB.RecordSet")  
if request("d")="edit" then
if request("tname")="" then
xoYuStudioMsg="错误:类名不能为空"
else
	rs.open "select * from downtype where tname like '"&request("oldtname")&"%'",conn,1,3
	do while NOT rs.EOF
	  TN=split(rs("tname"),"|")
        for i = 0 to ubound(TN)-1
         if i=request("tj")-1 then
           TT=TT & ""&request("tname")&"|"
         else
           TT=TT & ""&TN(i)&"|"
         end if
        next
      tname=TT
            rs("tstart")=request("tstart")
			rs("tname")=tname
			rs.Update
	TT=""
	rs.MoveNext
	loop
	rs.close
xoYuStudioMsg="成功:成功修改类目资料"
end if
end if

rs.open "select * from downtype where id="&request("id"),conn,1
if rs.eof and rs.bof then
response.write "<b>错误：</b>此ID号的类别不存在或已被删除!"
response.end
end if
 %> 

<form name=ctype method="post" action="down_type_edit.asp?d=edit&id=<%=request("id")%>&tj=<%=rs("tj")%>&oldtname=<%=rs("tname")%>">
  <div align="center">
      <center>
 <%if xoYuStudioMsg<>"" then%>
   <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="280">
        <tr>
          <td width="100%"><font color="#FF0000">·</font><%=xoYuStudioMsg%>,时间<%=Now()%></td>
        </tr>
      </table>
      <%end if%>
      <table border="0" cellspacing="1" bgcolor="#555555" style="border-collapse: collapse" width="280">
        <tr>
          <td width="100%" nowrap bgcolor="#6A6A6A"><font color="#FFFFFF"><b>编辑类目</b></font></td>
        </tr>
        <tr>
          <td width="100%" bgcolor="#FFFFFF" nowrap>
                <p align="center">
                <font color="#FF0000">类名</font>：<input type="text" size=28 name="tname" value="<%=split(rs("tname"),"|")(rs("tj")-1)%>"><br>
                转向：<input type="text" size=28 name="tstart" value="<%=rs("tstart")%>"><br>
                <font color="#808080">进入此类时自动转向到URL</font></td>                                                                                    
        </tr>                                                                                    
        <tr>
          <td width="100%" bgcolor="#DFDFDF" nowrap>
          <p align="center"><input name="changetype" value="修 改" type='submit'>　　<input name="b" onclick="history.go(-1);" type="button" value="返 回"></td>                                                                                    
        </tr>                                                                                    
      </table>                                                                                    
      </center>                                                                                    
    </div>                                                                                    
</form>
<%rs.close                                                                    
set rs=nothing                                                                    
conn.close                                                                    
set conn=nothing                                                                    
%>