⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_enter_type.asp

📁 花钱买的毕业设计。企业网络管理系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/config.asp" -->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
</head>
<%
'if recordset is open close it, &H00000001 = AdStateOpen
if session("rs").state = &H00000001 then
	session("rs").close
end if
with session("rs")
	.Open "enterprise_type",session("conn"),adOpenDynamic,adLockOptimistic,adCmdTableDirect
	if request("submit") <> "" then
		if Request("id") = "0" then
			.AddNew
		else 
			.find "id = " & Request("id") 
		end if
			.Fields("type") = Request("type")
		.Update
		.movefirst
	end if
%>
<body>
  <table width="400" border="0" cellspacing="1" cellpadding="1" align="center">
    <tr align="center"> 
      <td width="10">&nbsp;</td>
      <td colspan="3">企业类型管理</td>
      <td width="10">&nbsp;</td>
    </tr>
<form action="../admin/admin_enter_type.asp" method="post" name="frmNewstype<%= session("rs")("id") %>">
    <tr align="center"> 
      <td>&nbsp;</td>
      <td>添加类型</td>
      <td><input type="text" name="type"><input name="id" type="hidden" value="0"></td>
      <td><input type="submit" name="Submit" value="添加企业类型" ></td>
      <td>&nbsp;</td>
</form>
    </tr>
    <tr align="center"> 
      <td height="2"> </td>
      <td height="2" colspan="3" bgcolor="#dddddd"></td>
      <td height="2"> </td>
    </tr>
    <%
	while not .eof
		%>
<form action="../admin/admin_enter_type.asp" method="post" name="frmNewstype<%= session("rs")("id") %>">
    <tr align="center"> 
      <td width="10">&nbsp;</td>
      <td><%= session("rs")("id") %><input name="id" type="hidden" value="<%= session("rs")("id") %>">&nbsp;</td>
      <td><input type="text" name="type" value="<%= session("rs")("type") %>"></td>
      <td><input name="Submit" type="submit" value="修 改" ><input name="del" type="button" onClick="if(window.confirm('确定要删除该企业类型?')) window.open('../admin/del_enter_type.asp?id=<%= session("rs")("id") %>','_self');" value="删 除"></td>
      <td>&nbsp;</td>
    </tr>
</form>
    <%
		.movenext
	wend
	.close
end with
		%>
    <tr align="center"> 
      <td width="10">&nbsp;</td>
      <td colspan="3">&nbsp;</td>
      <td width="10">&nbsp;</td>
    </tr>
  </table>
</body>
</html>

⌨️ 快捷键说明

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