manage_class.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 70 行

<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_lib/my_request.asp"-->
<LINK href="style.css" rel=stylesheet type=text/css>
<SCRIPT>
function tq(url){ 
var url; window.open(url); 
}
</SCRIPT>
<%
flag=my_request("flag",0)
response.write flag
if flag="1" then
call save()
response.redirect "manage_class.asp"
elseif flag="2" then
call modi()
response.redirect "manage_class.asp"
elseif flag="3" then
call del()
response.redirect "manage_class.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=750 border=0>"
do while not rs.eof
yqj_class=rs("yqj_class")
id=rs("id")
response.write "<form action=manage_class.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=manage_class.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=manage_class.asp method=post>"
response.write "<tr>"
response.write "<td colspan=2>"
response.write "<p align=center>添加单位名称：<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
%>