📄 adduser.asp

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

💻 ASP

字号:

<%@ LANGUAGE="VBScript" %>
<%	
Dim conn,connstr,rs,rsstr, name,upassword,uright
name=Request.Form("name")
upassword=Request.Form("password")
uright=Request.Form("right")
If name="" Or upassword="" Or uright="" Then
	showmessage "有信息未填，要求各项必须填写"
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")

rs.open "Users",conn,1,3

Dim k
k=0
For i=1 To rs.recordcount
	If Trim(rs("Username"))=name Then	
		k=k+1
	End If 
	rs.movenext
Next
If k<1 then
	rs.addnew
	rs("Username")=name
	rs("password")=upassword
	rs("userright")=uright
	rs.Update
	rs.close
Else
	showmessage "该用户名已经注册,请用别的用户名"
End If 

Set rs=nothing
Set conn=Nothing
response.write "成功添加用户" 
response.write "<br><a href=javaScript:history.go(-1)>返回</a>."
 End if
%> 

<% Sub showmessage(msg)%>
<body bgcolor="#CCFFFF">
<title>添加用户</title>
<center>
<h3><%=msg%></h3>
</center>
<form>
<p align="center">
<input type="button" value="返回重新填写" onclick="history.back()">
</p>
</form>
</body>
<% Response.End%>
<% End Sub %>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -