citydel.asp

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

<%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日
%>

<%

If Request.Form("del") = "" Then
   
  		Response.Write("<script>alert('对不起,您没有选择任何删除项，请重新选择!');history.go(-1)</script>")
		Response.End
		conn.close
		Set conn = nothing
Else
   Dim sql,rs,strSql
   Dim del,nu,i,cityname
  'sql = "Select * From weather_city"
  'Set  rs = con.Execute(sql)
   del = Split(Request.Form("del"),",")

	nu = (len(Request.Form("del"))-len(replace(Request.Form("del"),",","")))/len(",") 
	Set rs=Server.CreateObject("ADODB.Recordset")
    for i=0 to nu
     sql = "Select cityName From weather_city where cityID='"& trim(del(i)) & "'"
     rs.open sql,conn,1,2
     cityname=rs("cityname")
     rs.Close
     sql="delete from weather_Info where city='"&cityname&"'" 
     conn.execute(sql)
    next 
    For i = 0 to nu
	    strSql = "delete from weather_city where cityID = '"& trim(del(i)) & "'"
		conn.Execute (StrSql)
	Next          
    conn.close
	Set conn = nothing
	Response.redirect "cityList.asp"
End If
%>