📄 adminproductunitlist.asp

📁 一个不错的个人商务网站的源码
💻 ASP
字号:
<%dim nowplace
nowplace="product"
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/my_request.asp" -->
<!--#include file="../comm/my_lib.asp" -->
<html>
<head><title>单位管理</title>

<link href=AdminStyle.css rel=stylesheet type=text/css>
<SCRIPT>
function tq(url){ 
var url; window.open(url); 
}
</SCRIPT>
</head>

<body>
<table border="0" width="100%" id="table1" cellspacing="1" style="border:1px solid #183789; padding-left:4px; padding-right:4px; padding-top:1px; padding-bottom:1px" cellpadding="3">
	 <tr>
		<td bgcolor="#EEEEEE" background="Image/admin_bg_1.gif" height="25" colspan=2>
		<p align="left">
		<font color="#FFFFFF">
		<b>商品单位管理</b></font></td>
	 </tr>
<%
flag=my_request("flag",0)
response.write flag
if flag="1" then
call save()
response.redirect "AdminProductUnitList.asp"
elseif flag="2" then
call modi()
response.redirect "AdminProductUnitList.asp"
elseif flag="3" then
call del()
response.redirect "AdminProductUnitList.asp"
else
sql="select * from yqj_sort"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
'response.write "<div align=center>"
'response.write "<table width=100%  cellspacing=0 style='border:1px solid #CCCCCC; border-collapse: collapse; padding-left:4px; padding-right:4px; padding-top:1px; padding-bottom:1px' bordercolor='#EFEFEF' cellpadding='4'>"
do while not rs.eof
yqj_class=rs("yqj_class")
id=rs("id")
response.write "<form action=AdminProductUnitList.asp method=post>"
response.write "<tr>"
response.write "<td width=200><p align=right>单位名称：</td><td width=550><input type=text name=yqj_class value="&yqj_class&"><input type=hidden name=flag value=2><input type=hidden name=id value="&id&"><input type=submit value=修改 name=B1>&nbsp;&nbsp;<a href=AdminProductUnitList.asp?id="&id&"&flag=3>删除</a></td>"
response.write "</tr>"
response.write "</form>"
rs.movenext
loop
rs.close
set rs=nothing
response.write "<form action=AdminProductUnitList.asp method=post>"
response.write "<tr>"
response.write "<td colspan=2>"
response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;添加单位名称：<input type=text name=yqj_class size=20><input type=hidden name=flag value=1><input type=submit value=添加 name=B1>&nbsp;&nbsp;<input type=reset value=重置 name=B2></td>"
response.write "</tr>"
response.write "</form>"
response.write "</table>"
'response.write "</div>"
end if
conn.close
set conn=nothing

sub save()
yqj_class=my_request("yqj_class",0)
sql="insert into yqj_sort (yqj_class) values ('"&yqj_class&"')"
conn.execute (sql)
end sub

sub modi()
id=my_request("id",1)
yqj_class=my_request("yqj_class",0)
sql="update yqj_sort set yqj_class='"&yqj_class&"' where id="&id
conn.execute (sql)
end sub

sub del()
id=my_request("id",1)
sql = "delete from yqj_sort where id="&id
conn.execute(sql)
end sub
%>
</body>
</html>
⌨️ 快捷键说明

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