📄 alertrt.asp.bak

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

💻 BAK

字号:

<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>

<BODY>
<%@ LANGUAGE="VBScript" %>
<%	
Dim conn,connstr,rs,rsstr, name,uright
name=Request.Form("name")
uright=Request.Form("right")
'----------建立数据库链接对象
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
rs("userright")=uright
rs.update
rs.close
Set rs=nothing
Set Conn=Nothing
response.write "成功更改用户权限" & name 
%> 
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -