bigclass_modi.asp

来自「购物系统时尚版.强大的后台文章编辑器的功能」· ASP 代码 · 共 68 行

ASP
68
字号
<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_lib/my_request.asp"-->
<%
id=my_request("id",1)
bigclass=my_request("name",0)
action=my_request("action",0)
if action="save" then
call save()
response.write "<script>window.opener.document.location.reload();</script>"
response.write "<script>window.close();</script>"
else
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" rel=stylesheet type=text/css>
<script language="javascript">
function checkdata()
{
 if (document.form1.bigclass.value=="")
	{
	  alert("对不起,类别不能为空!")
	  document.form1.bigclass.focus()
	  return false
	 }
	   }
</script>
<title>大类别修改</title>
</head>

<body>
<form action="bigclass_modi.asp" method="post" name=form1 onsubmit="return checkdata();">
<table border="0" width="100%" id="table1" cellspacing="0" style="border-collapse: collapse" cellpadding="0">
	<tr>
		<td background="image/admintoptdbg.gif">
		<p align="left">
		<img border="0" src="image/title_arrow.bmp" width="17" height="27" align="absmiddle"><font color="#808080"><b>大类别修改</b></font></td>
	</tr>
</table>
<table width="100%" id="table1" style="border:1px solid #C0C0C0; border-collapse: collapse; padding-left:4px; padding-right:4px; padding-top:1px; padding-bottom:1px" cellspacing="1" cellpadding="4" bgcolor="#F6F6F6">
	<tr>
		<td>名称:<input type="text" name="bigclass" size="29" value="<%=bigclass%>">
		<input type="hidden" name="action" value="save">
		<input type="hidden" name="id" value="<%=id%>"></td>
	</tr>
	<tr>
		<td>
		<p align="center"><input type="submit" value="修 改" name="B1">
		<input type="button" value="关闭窗口" name="B2" onclick="window.close()"></td>
	</tr>
</table>
</form>
</body>

</html>
<%end if
sub save()
bigclass=my_request("bigclass",0)
id=my_request("id",1)
sql="update big_class set txt_big_class='"&bigclass&"' where id="&id
conn.execute (sql)
conn.close
set conn=nothing
end sub
%>

⌨️ 快捷键说明

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