📄 category_modify_dialog.asp
字号:
<!-- #include file="../login/check.asp" -->
<!-- #include file="../../inc/conn.asp" -->
<!-- #include file="../../inc/function.asp" -->
<!--#include file="../category/category_class.asp"-->
<!--#include file="../template/template_class.asp" -->
<head>
<base target="_self">
<link rel="stylesheet" type="text/css" href="../../inc/lbstyle.css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<title>修改分类</title></head>
<%
dim id,categoryid,categoryname,rs,crs
id=cint(request.QueryString("id"))
set rs=conn.execute("select *,(select top 1 template from newscategory where ctid="&id&") as template from category where id="&id)
if not rs.eof then
categoryid=rs("categoryid")
categoryname=rs("categoryname")
categorytemplate=rs("template")
if isnull(categorytemplate) or categorytemplate="" then
conn.execute("insert into newscategory (ctid,template) values ("&id&",'0')")
categorytemplate="0"
end if
else
response.write"参数错误"
response.End()
end if
rs.close
set rs=nothing
%>
<form name="form1" method="post" action="category_save.asp?action=modify&id=<%=id%>">
<table width="100%" border="0">
<tr>
<td height="20" align="center">修改<font color=red><B><%=categoryname%></B></font>分类的名称</td>
</tr>
<tr>
<td align="center"><input name="categoryname" type="text" class="textarea" id="category" value="<%=categoryname%>" size="30"></td>
</tr>
<tr>
<td align="center">修改栏目文章的默认模板</td>
</tr>
<tr>
<td align="center"> <%
Dim tp
Set tp=new LBTemplate
tp.CategoryType="新闻模板"
%> <select class="select" name="categorytemplate" size="">
<%
tp.downlistselected(categorytemplate)
%></select></td>
</tr>
<tr>
<td height="30" align="center"><input name="Submit" type="submit" class="button" value="提交">
<input name="Submit2" type="reset" class="button" value="重置"> </td>
</tr>
</table>
</form>
<%conn.close
set conn=nothing
set ct=nothing%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -