saveadduser.asp

来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 55 行

ASP
55 行
字号 
<%@ Language=VBScript %>

<!--#include virtual="/Include/Const.asp"-->
<!--#include virtual="/Include/DBConn.asp"-->
<!--#include virtual="/Include/FuncPub.asp"-->
<!--#include virtual="/Include/ChkSession.asp"-->
<!--#include file="Function.asp"-->
<html>
<head>
<title><%=Application("Site_Name")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content=" ">
<link rel="stylesheet" href="../Css/Css.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#Include file = "Menu.asp" -->
<%

	Dim UserName,RealName,password,Email,State	
	UserName = ModifyInput( Request.Form("UserName") )
	RealName = ModifyInput( Request.Form("RealName") )
	password = ModifyInput( Request.Form("FIELD_Password") )
	Email = ModifyInput( Request.Form("Email") )
	State = ModifyInput( Request.Form("State") )

	Checkinput
	
	Dim ErrMsg
	ErrMsg = AddUsers(UserName,RealName,Password,Email,State)
	
	If ErrMsg = False Then
		Call MsgBack("数据库操作失败，请重试！","4")
	Else
		'Response.Write "<p>成功增加新数据！</p>"
		Response.Redirect "UserManage.asp"
	End If	
	
Sub Checkinput
	Dim Rs,StrSQL
	StrSQL="select count(*) as cou from Users where UserName='"&UserName&"'"
	set Rs = conn.execute(StrSQL)
	If cint(Rs("cou"))<>0 then
		Rs.close 
		Call MsgBack("此用户名已被占用，请换名重试！","4")
		exit Sub
	End If
	Rs.Close
End Sub	
%>
<!-- 代码结束 -->
<p><input type="button" name="btnBack" value="返  回" LANGUAGE=javascript onclick="window.history.go(-1)" ID="Button1"></p>

<!--#include virtual="/Include/DBClose.asp"-->
</BODY>
</HTML>

saveadduser.asp - 源码说明

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

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

⌨️ 快捷键说明

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