modifypowersave.asp

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

ASP
55 行
字号 
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<P>&nbsp;</P>
 <!--#include file="../include/odbc.asp" -->
<!--#include file="../include/killStr.asp" -->
<!--#include file="../include/checkUser.asp" -->
<!--#include file="../include/checkServer.asp" -->
<%
'修改：潘树文
'时间：2001年2月9日
%><%
Dim powerName
powerName = Request.Form("Name")

%>


<%
Dim rs
Dim sql
Set rs=server.CreateObject("adodb.RecordSet")
rs.LockType = 3
rs.CursorType = 3 
sql = "Select * From weather_power Where powerName = '" & powerName & "'"
rs.Open sql,conn
if rs.eof then 
   Set rs=server.CreateObject("adodb.RecordSet")
   rs.LockType = 3
   rs.CursorType = 3 
   sql="SELECT * FROM weather_power Where powerID='" & Request.Form("id") & "'"
   rs.Open sql,conn
   rs("powerName") = powerName
   rs.Update
   rs.close
   Set rs = nothing
   conn.close
   Set conn = nothing
   Response.redirect "powerList.asp"
else Response.Write("<script>alert('对不起,此风力已经存在，请重新输入!');history.go(-1)</script>")
		Response.End
		rs.Close
		Set rs = nothing
		conn.close
		Set conn = nothing
end if 
%>

</BODY>
</HTML>

modifypowersave.asp - 源码说明

本页面展示了「asp的新闻网站」中的 modifypowersave.asp 源码文件，采用 ASP 编程语言编写，共 55 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?