⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 useradd.asp

📁 tushuguanlixitong 图书借阅系统 用ASP实现的 能实现简单的功能
💻 ASP
字号:
🔍 
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加用户成功</title>
</head>
 
<body bgcolor=#FF6600>


<%  dim username
    dim userpass
    dim depart
    dim borrownumber
    dim describe
	dim userpass1
	
	dim dbconn
	dim ADOObjConn
	dim strSQL
	dim Adoobject 
	dim strConn	
	dim flag
	flag = 1
	username = request.Form("username")
	userpass = request.Form("userpass")
	userpass1 = request.Form("userpass1")
	depart   = request.Form("depart")
	borrownumber = 0
	describe = request.Form("describe")
	
	if  (username = "") or (userpass = "") or (userpass1="") then 
%>
<table border="1" width="100%" id="table2">
	<tr>
		<td align="center"><b><font size="4">姓名与密码不能为空!</font></b></td>
	</tr>
	<tr>
		<td align="center">　</td>
	</tr>
	<tr>
		<td align="center"><b><font size="4">请<a href="usermanger.asp">返回</a>!</font></b></td>
	</tr>
</table>

<%  flag = 0  
    else

      if (userpass<>userpass1) then 
 %>     
<table border="1" width="100%">
	<tr>
		<td align="center"><b><font size="4">&nbsp;输入密码不相同!</font></b></td>
	</tr>
	<tr>
		<td height="21" align="center"><b><font size="4">请重新输入!</font></b></td>
	</tr>
	<tr>
		<td align="center"><b><font size="4">点击<a href="usermanger.asp">返回</a>!</font></b></td>
	</tr>
</table>
<%   flag = 0
     end if
    
    end if
    
    if (flag = 1 ) then   
	strConn = "DSN=dblib;uid=;pwd=;database=db"
	set ADOObjConn = server.CreateObject ("ADODB.Connection")
	ADOObjConn.ConnectionString = strConn	
	ADOObjConn.Open

	set Adoobject = server.CreateObject ("ADODB.Recordset")	
	strSQL = "SELECT * from Tuser "
	Adoobject.Open   strSQL, ADOObjConn, 1, 3
	
		 
	Adoobject.AddNew
	'存储用户信息
    	Adoobject.Fields ("username").Value = username
    	Adoobject.Fields ("userpass").Value = userpass
    	Adoobject.Fields ("depart").Value = depart
    	Adoobject.Fields ("borrownumber").Value = borrownumber
		Adoobject.Fields ("describe").Value = describe
    	Adoobject.Update
   	Adoobject.Close
   	Set Adoobject = Nothing

%>


<table border="1" width="100%" height="50%" id="table1">
	<tr>
		<td align="right" width="50%">姓名</td>
		<td><%=username%>　</td>
	</tr>
<tr>
		<td align="right">密码</td>
		<td><%=userpass%>　</td>
	</tr>
<tr>
		<td align="right">部门</td>
		<td><%=depart%>　</td>
	</tr>

	
	<tr>
		<td align="right">说明</td>
		<td><%=describe%>　</td>
	</tr>
	
	<tr>
		<td colspan="2" align="center">用户添加成功</td>
	</tr>
	<tr>
		<td colspan="2" align="center"><a href="usermanger.asp">返回</a></td>
	</tr>
	<tr>
		<td colspan="2">　</td>
	</tr>
</table>
<% 
 End if
%>

</body>

</html>

⌨️ 快捷键说明

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