<!--#include file="../conn.asp"-->
<!--#include file="../md5.asp"-->
<!--#include file="../inc/function.asp"-->
<%if session("china_admin")="" then Response.redirect "login.asp"
dim action,id,City,CityAdmin,CityPass,Indexid,Indexshow,Rs,Sql,i,Data,zimu,WebSetting,colorshow,TWODOMAIN,l,w
id=strint(Request.QueryString("id"))
action=HtmlEncode(Request("action"))
City=HtmlEncode(Request("city"))
CityAdmin=HtmlEncode(Request("CityAdmin"))
CityPass=HtmlEncode(Request.form("CityPass"))
colorshow=HtmlEncode(Request.form("colorshow"))
Indexid=Strint(Request.form("Indexid"))
zimu=HtmlEncode(Request("zimu"))
TWODOMAIN=HtmlEncode(Request("TWODOMAIN"))
WebSetting=HtmlEncode(Request("WebSetting"))
Indexshow=HtmlEncode(Request.form("Indexshow"))
if City="" and action<>"" then
Response.write "<script LANGUAGE='javascript'>alert('请认真填写！');history.go(-1);</script>"
Response.End
End if
dbpath="../"
dblink
IF Request.Form("submit")<>"" Then
For l=0 To 9
WebSetting = WebSetting & HtmlEncode(Request("w"&l)) & "∮∮∮"
Next
WebSetting = Left(WebSetting,Len(WebSetting)-3)
Set Rs=server.CreateObject("adodb.recordset")
Rs.open "Select WebSetting from China_City where twoid=0 and id="&id,conn,1,3
Rs("WebSetting") = WebSetting
Rs.Update
CloseRs
End IF
Set Rs=Conn.Execute("Select WebSetting from China_City where id>0 and twoid=0 ")
WebSetting=Split(Rs(0),"∮∮∮")
rs.close:set rs=nothing
Select Case action
Case "add"
if Conn.Execute("Select ID from China_City where city='"&City&"' and threeid=0 and twoid=0").BOF Then
Set Rs=Conn.Execute("Select ID from China_City where threeid=0 and twoid=0 order by id desc")
If Rs.eof and Rs.bof then
id=1
Else
id=Rs("id")+1
End if
CloseRs
Conn.Execute("Insert Into [China_City] (ID,Twoid,Threeid,City,CityAdmin,CityPass,INdexid,Indexshow,zimu,WebSetting,TWODOMAIN) Values ("&ID&",0,0,'"&City&"','"&CityAdmin&"','"&Md5(CityPass)&"',"&Indexid&",'"&Indexshow&"','"&zimu&"','"&WebSetting&"','"&TWODOMAIN&"')")
CloseRs
Else
Response.write "<script>alert('你输入的一级目录名称:"&dname&"已经有了！');history.go(-1);</script>"
End if
Case "edit"
Set Rs=server.CreateObject("adodb.recordset")
Rs.open "Select * from China_City where twoid=0 and id="&id,conn,1,3
Rs("city")=City
Rs("cityadmin")=CityAdmin
Rs("zimu")=zimu
Rs("TwoDomain")=TwoDomain
Rs("indexid")=indexid
Rs("indexshow")=HtmlEncode(Request("indexshow"))
if CityPass<>Rs("citypass") then Rs("citypass")=md5(CityPass)
Rs.Update
CloseRs
Conn.Execute ("Update China_Data Set City_one='"&City&"' where City_oneid="&id)
Case "del"
Dim Html,Pic
Conn.execute ("delete from China_City where id="&id)
Set Rs=Conn.Execute("Select Adid,Pic from china_data where city_oneid ="&id)
If Not Rs.Eof Then Data=Rs.GetRows
CloseRs
If IsArray(Data) Then
For I=0 To Ubound(Data,2)
UpDateUpFile "","html/"&Data(0,i)&".htm|adpic/"&Data(1,i),"../",0
Next
End If
CloseRs
Conn.Execute("Delete From [China_Data] Where City_oneid="&ID)
Data=Empty
Set Rs=Conn.Execute("Select Adid,Pic From [News_Data] Where City_oneid ="&id)
If Not Rs.Eof Then Data=Rs.GetRows
CloseRs
If IsArray(Data) Then
For I=0 To Ubound(Data,2)
UpDateUpFile "","html/News/"&Data(0,i)&".htm|adpic/"&Data(1,i),"../",0
Next
End If
CloseRs
Conn.Execute("Delete From [News_Data] Where City_oneid="&ID)
CloseConn
Response.Redirect "cityedit.asp"
End Select
If Action<>"" Then Application(CacheName&"_CityType")=""
%>
value="<%=WebSetting(0)%>读取的全是最后一条数据,采纳答案再悬赏100分