📄 info_type_edit.asp
字号:
<%Admin="UserMailList"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta copy="ID80推广资源网">
<style>
td{font-size:9pt;line-height:140%}
</style>
</head>
<%
set rs=server.CreateObject("ADODB.RecordSet")
if request("d")="edit" then
if request("tname")="" then
JyDownMsg="错误:类名不能为空"
else
rs.open "select * from infotype 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("tname")=tname
rs.Update
TT=""
rs.MoveNext
loop
rs.close
JyDownMsg="成功:成功修改类目资料"
end if
end if
rs.open "select * from infotype 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="info_type_edit.asp?d=edit&id=<%=request("id")%>&tj=<%=rs("tj")%>&oldtname=<%=rs("tname")%>">
<div align="center">
<center>
<%if JyDownMsg<>"" then%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="280">
<tr>
<td width="100%"><font color="#FF0000">·</font><%=JyDownMsg%>,时间<%=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)%>"></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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -