www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > adminhymm/feilei_change.asp
<!--#include file="mdb.asp"-->
<!--#include file="aq.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
%>
<%
if request.form("Change")<>"" then
id=replace(request.form("id"),"'","''")
topclass=replace(request.form("topclass"),"'","''")
classname=replace(request.form("classname"),"'","''")
memo=replace(request.form("memo"),"'","''")
show=replace(request.form("show"),"'","''")
ku=replace(request.form("ku"),"'","''")
top=replace(request.form("top"),"'","''")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [feilei] where classid="&id&""
rs.open sql,conn,1,3
rs("classname")=classname
rs("topclass")=topclass
rs("memo")=memo
rs("show")=show
rs("ku")=ku
rs("top")=top
rs.update
rs.close
response.Redirect ("feilei_list.asp?Page="&TempPage )
end if
id =Request("id")
Page =Request("Page")
Set Rs = Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from feilei where classid="&id
RS.open SqlStr,Conn,1,1
if Rs.recordcount=0 then
Redirect ("../Error.asp?Error=<font color=FF0000>没有找到该记录，请与管理员联系!</font>")
end if
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.CSS" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-top: 20px;
}
-->
</style></head>
<SCRIPT LANGUAGE=vbscript>
Sub BtnAdd_Onclick()
IF CheckNull(FormAdd.classname,"请输入分类名!") Then Exit Sub
IF CheckNull(FormAdd.topclass,"请输入所在分类") Then Exit Sub
IF Not(IsNumeric(FormAdd.topclass.value)) Then
Alert("请输入整数类型的数")
FormAdd.topclass.focus()
Exit Sub
End IF
FormAdd.submit
End Sub
Function CheckNull(Field,Msg)
IF Trim(Field.Value)="" Then
alert(Msg)
Field.focus()
CheckNull=True
Else
CheckNull=False
End IF
End Function
</script>
<body bgcolor="#FFFFFF" text="#D3D3D3" leftmargin="0">
<table width="500" height="118" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#D3D3D3" >
<form name="FormAdd" method="post" action="feilei_change.asp" >
<tr>
<td bgcolor="#eeeeee" align="center" height="12" width="35%">所在分类</td>
<td bgcolor="#FFFFFF" height="25">
<input type="text" name="topclass" value="<%=rs("topclass")%>" size="20">
<font color="#FF0000">数值型</font></td>
</tr>
<tr>
<td bgcolor="#eeeeee" align="center" height="25">分类名称</td>
<td bgcolor="#FFFFFF" height="25">
<input type="text" name="classname" class="tablecolor" size="20" maxlength="50" value="<%=Rs("classname")%>">
</td>
</tr>
<tr>
<td bgcolor="#eeeeee" align="center" height="8">类别注释</td>
<td bgcolor="#FFFFFF" height="-2">
<textarea name="memo" class="tablecolor" cols="50" rows="2"><%=Rs("memo")%></textarea></td>
</tr>
<tr>
<td bgcolor="#eeeeee" align="center" height="12" width="35%">酷站排序</td>
<td bgcolor="#FFFFFF" height="25">
<input type="text" name="top" value="<%=rs("top")%>" size="20">
<font color="#FF0000">数字越大越排前</font></td>
</tr>
<tr>
<td bgcolor="#eeeeee" align="center" height="17">首页显示</td>
<td bgcolor="#FFFFFF" height="0">
<input type="radio" value="1" <%if Clng(rs("show"))=1 then Response.Write "checked"%> name="show">
是
<input type="radio" value="0" <%if Clng(rs("show"))=0 then Response.Write "checked"%> name="show">
否 </td>
</tr>
<tr>
<td bgcolor="#eeeeee" align="center" height="17">酷站显示</td>
<td bgcolor="#FFFFFF" height="0">
<input type="radio" value="1" <%if Clng(rs("ku"))=1 then Response.Write "checked"%> name="ku">
是
<input type="radio" value="0" <%if Clng(rs("ku"))=0 then Response.Write "checked"%> name="ku">
否 </td>
</tr>
<tr>
<td bgcolor="#eeeeee" align="center" height="27"> </td>
<td bgcolor="#FFFFFF" height="27">
<input type="button" name="BtnAdd" value="确定">
<input type="reset" name="Submit2" value="重置">
<input type="hidden" name="Change" value="YES">
<input type="hidden" name="id" value="<%=rs("classid")%>">
<input type="hidden" name="TempPage" value="<%=page%>">
</td>
</tr>
</form>
</table>
</body>
</html>
<%
FreeConn()
%>