📄 alertpwb.asp

📁 采用arcims结合asp开发的一个webgis系统,针对地下水,实现了曲线时时绘制的功能.

💻 ASP

字号:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>

<BODY><CENTER>
<font style="font-size=15pt">
<%@ LANGUAGE="VBScript" %>
<%	
Dim conn,connstr,rs,rsstr, name,upassword1,upassword2
name=Request.Form("name")
upassword1=Request.Form("password1")
upassword2=Request.Form("password2")
If upassword1<>upassword2 Then 
	response.write "两次输入的密码不一致，请重新输入"
	response.write "<br><a href=javaScript:history.go(-1)>返回</a>."
Else
'----------建立数据库链接对象
Set conn = Server.CreateObject("ADODB.Connection")
connstr ="Driver={SQL Server};server=(local);uid=sa;pwd=;database=master;"
conn.open connstr
Set rs = server.CreateObject("adodb.recordset")

rsstr = "select * from Users where Username='"& name &"'"
rs.open rsstr,conn,1,3
'response.write rs("password")
rs("password")=upassword1
rs.update
rs.close
Set rs=nothing
Set Conn=Nothing
response.write "成功更改用户" & name & "密码" 
End If 
%> 
</font>
</CENTER>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -