checkuser.asp

来自「采用arcims结合asp开发的一个webgis系统,针对地下水,实现了曲线时时」· ASP 代码 · 共 48 行

ASP

48 行

<%@ LANGUAGE="VBScript" %>
<html>
<body>
<form name=form1>
<%	
Dim conn,connstr,rs,rsstr, nm,pw
nm=Request.Form("name")
pw=Request.Form("password")
'----------建立数据库链接对象
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 password,userright from Users where Username='"& nm &"'"

rs.open rsstr,conn,1,1
response.write pw

If rs.eof And rs.bof Then
	response.write "<center>用户名不存在,按<a href=javaScript:history.go(-1)>这里</a>返回."
	rs.close
	Set rs=nothing
	Set Conn=nothing
	response.End
End If

If Trim(rs("password"))<>pw Then 
	response.write "<center>密码错误,按<a href=javaScript:history.go(-1)>这里</a>返回."
	rs.close
	Set rs=nothing
	Set Conn=nothing
	response.End
End If

Session("name")=nm
'Session("password")=pw
Session("right")=rs("userright")
	
response.Redirect"viewer.asp"
Set rs=nothing
Set Conn=nothing
%> 

</form>
</BODY>
</HTML>

checkuser.asp - 源码说明

本页面展示了「采用arcims结合asp开发的一个webgis系统,针对地下水,实现了曲线时时绘制的功能.」中的 checkuser.asp 源码文件，采用 ASP 编程语言编写，共 48 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?