infosave.asp

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

<%Response.Buffer=true%>
<!--
Programmer:jin kai 
Update:2000.8.15
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("city"))
%>


<%
Dim rs
Dim sql
Set rs=server.CreateObject("adodb.RecordSet")
rs.LockType = 3
rs.CursorType = 3 
sql="SELECT * FROM weather_Info Where city='" & cityName & "'"
rs.Open sql,conn
If rs.Eof Then 
	rs.AddNew 
	rs("city") = cityName
	rs("power") = Request.Form("power")
	rs("direction") = Request.Form("direction")
	rs("status") = Request.Form("status")
	rs("temperature") = Request.Form("name")
	rs.Update
Else
	rs("power") = trim(Request.Form("power"))
	rs("direction") = trim(Request.Form("direction"))
	rs("status") = trim(Request.Form("status"))
	rs("temperature") = trim(Request.Form("name"))
	rs.Update
End If
rs.close
Set rs = nothing
conn.close
Set conn = nothing
Response.redirect "infoList.asp"

%>