modifycitysave.asp

来自「asp的新闻网站」· ASP 代码 · 共 58 行

<%Response.Buffer=true%>
<!--
Programmer:jin kai 
Update:2000.8.14
CopyRight:东宇电子商务
-->
 <!--#include file="../include/odbc.asp" -->
<!--#include file="../include/killStr.asp" -->
<!--#include file="../include/checkUser.asp" -->
<!--#include file="../include/checkServer.asp" -->
<%
'修改：潘树文
'时间：2001年2月9日
%><%
Dim cityName
cityName = trim(Request.Form("Name"))

%>


<%
Dim rs
Dim sql
Dim changeCity
Set rs=server.CreateObject("adodb.RecordSet")
sql = "Select * From weather_city Where cityName = '" & cityName & "'"
rs.Open sql,conn,1,2
if rs.eof then 
     rs.Close 
     sql="SELECT * FROM weather_city Where cityID='" & Request.Form("id") & "'"
     rs.Open sql,conn,3,3
     changeCity = rs("cityName")

     rs("cityName") = cityName
     rs.Update
     rs.close

     sql="select *  from weather_Info where city='"&changecity&"'" 
     rs.open sql,conn,3,3
     If Not rs.EOF Then  
		rs("city")=cityname
		rs.update
     End If 
     rs.close 
     Set rs = nothing
     conn.close
     Set conn = nothing
     Response.redirect "cityList.asp"
else Response.Write("<script>alert('对不起,此城市已经存在，请重新输入!');history.go(-1)</script>")
		Response.End
		rs.Close
		Set rs = nothing
		conn.close
		Set conn = nothing
end if 
%>