📄 web_new_type.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
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"))
Select Case Action
 Case "add"
  Call Add_Submit()
 Case "del"
  Call Del_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="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">
              <tr align="center" bgcolor="eff0eb"> 
                <td width="12%" height="25" bgcolor="eff0eb"><u>编 号</u></td>
                <td width="50%" height="25" bgcolor="eff0eb"><u>新闻类别名称</u></td>
                <td width="15%" bgcolor="eff0eb"><u>新闻数目</u></td>
                <td height="25" bgcolor="eff0eb"><u>管理操作</u></td>
              </tr>
<% 	  
Set Rs = Conn.Execute("Select * From [pH_New_Type]")
While Not Rs.Eof
 TypeId     = Rs("TypeId")
 TypeName   = Rs("Type")
 News       = Rs("News")		  
%>
              <tr align="center" bgcolor="eff0eb"> 
                <td width="12%" height="25" bgcolor="eff0eb"><%= TypeId %></td>
                <td height="25"><%= TypeName %></td>
                <td height="25"><%= News %></td>
                <td height="25"><a href="?action=del&param=<%= TypeId %>" onClick="return confirm('是否删除该记录');"><u>删除</u></a> <a href="Web_New_TypeEdit.asp?param=<%= TypeId %>"><u>编辑</u></a></td>
              </tr>
<% 
 Rs.Movenext
Wend
Rs.Close
Set Rs = Nothing
				  
%>
            </table></td>
        </tr>
      </table>
    </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">
		   <form action="?action=add" method="post">
              <tr bgcolor="eff0eb"> 
                  <td height="25" bgcolor="eff0eb">&nbsp;:: 
                    添加类别&nbsp;&nbsp;&nbsp;类别名称：</font> 
                    <input name="type" type="text" id="type" size="16">
                  <input type="submit" name="Submit" value="添 加">
				</td>
              </tr>
		    </form>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>
<% 
Sub Add_Submit()
 Dim Rs
 Typename = Replace_text(request("type"))
 '//检测是否输入类别名称
 If Typename="" Then
  Response.write "必须输入类别名称！"
  Response.End()
 End if
 '//检测是否有同名类别名
 Set Rs = Conn.Execute("Select * 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 "Insert Into [pH_New_Type] (type,news) values ('"&Typename&"',0)"
 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
'//删除记录
Sub Del_Submit()
 Dim Param
 Param = Replace_Text(Request.QueryString("param"))
 Conn.Execute("Delete From [pH_New_Type] Where Typeid="&Cstr(Param))
 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 + -