📄 web_new_typeedit.asp

📁 直接附加数据库！修改 Include/ Class_Main.asp 为自己信息后台admin admin 绍兴人才网程序
💻 ASP
字号:
<!--#include file="../Include/Class_Conn.asp" -->
<!--#include file="../Include/Class_Main.asp" -->
<!--#include file="Web_Session.asp" -->
<% 
Dim Action,Param
Dim TypeId,TypeName,News
'//检测是否跨站
Call Check_url()
'//检测管理员是否有权限操作该页面
If Instr(1,Session("Web_Power"),"182") <= 0 Then 
  Call CloseDB()
  Response.write "对不起!您没有访问该页面的权限..."
  Response.End()
End If
Action = Replace_text(request("action"))
Param  = Replace_text(request("param"))

Select Case Action
 Case "edit"
  Call Edit_Submit() '//跳转到编辑函数
End Select


 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新闻类别</title>
<link href="../CSS/css.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="5"></td>
  </tr>
  <tr> 
    <td height="25" bgcolor="fb7a03">&nbsp;<font color="#FFFFFF">::<strong>新闻类别</strong></font></td>
  </tr>
  <tr>
    <td height="10"></td>
  </tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="5"></td>
  </tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
  <tr> 
    <td align="left"> <table width="50%" border="0" align="left" cellpadding="0" cellspacing="1" bgcolor="eff0eb">
        <tr> 
          <td bgcolor="#FFFFFF">
		  <table width="100%" border="0" cellspacing="1" cellpadding="0">
<% 	  
 Set Rs = Conn.Execute("Select * From [pH_New_Type] Where Typeid="&Cstr(Param))
 If Not Rs.Eof Then
  TypeId     = Rs("TypeId")
  TypeName   = Rs("Type")
 		  
%>
		   <form action="?action=edit" method="post">
              <tr bgcolor="eff0eb"> 
                  <td height="25" bgcolor="eff0eb">&nbsp;:: 
                    添加类别&nbsp;&nbsp;&nbsp;类别名称：</font> 
                    <input name="type" type="text" id="type" size="16" value="<%= TypeName %>">
                  <input type="submit" name="Submit" value="提 交">
                    <input type="hidden" name="param" value="<%= TypeId %>"> </td>
              </tr>
		    </form>
<% 
 Else
 %>
               <tr bgcolor="eff0eb"> 
                  <td height="25" bgcolor="eff0eb">&nbsp;:: 
                    没有找到该类别！
				</td>
              </tr>
<% 
 End if
 Rs.Close
 Set Rs = Nothing
 %>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<% 
Sub Edit_Submit()
 Dim Rs
 Typename = Replace_text(request("type"))
 Param    = Replace_text(request("param"))
 '//检测是否输入类别名称
 If Typename="" Then
  Response.write "必须输入类别名称！"
  Response.End()
 End if
 '//检测是否有同名类别名
 Set Rs = Conn.Execute("Select Type from [pH_New_Type] where type='"&Typename&"'")
 If Not Rs.Eof Then
  Rs.close
  Set Rs = Nothing
  Call CloseDB
  Response.write "该类别已经存在！"
  Response.End()
 End if
 '//新闻类别表中修改记录
 Conn.Execute("Update [pH_New_Type] Set Type='"&TypeName&"' Where TypeId="&Cstr(Param))
 Rs.close
 Set Rs = Nothing
 Call CloseDB
 Response.write "编辑成功！"
 Response.write "<meta http-equiv=refresh content=""2;URL=Web_New_Type.asp"">" 
 Response.End()
End Sub

Call CloseDB()
 %>
⌨️ 快捷键说明

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