citysave.asp

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

<%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 cityid,cyteidNumber,i

Set rs=server.CreateObject("adodb.RecordSet")
rs.LockType = 3
rs.CursorType = 3 
sql = "Select * From weather_city Where cityName = '" & cityName & "'"
rs.Open sql,conn

If rs.Eof Then
    rs.close
	sql = "Select * From weather_city order by cityId desc"
	rs.Open sql,conn
	'产生编号
	If rs.Eof Then 
		cityId="0001"
	Else
		cityId=rs("cityId")
		cityIdNumber=clng(cityId)+1
		cityId=cstr(cityIdNumber)
		lenCityId=len(cityId)
		For i=1 To 4-lenCityId
			cityId="0"&cityId
		Next
	End If
	rs.AddNew
	rs("cityName") = cityName
	rs("cityID") = cityid
	rs.Update
	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

%>