add.asp

来自「ASP,版本,HUANYING NI DE XIAZAI ! LIANXIFAN」· ASP 代码 · 共 47 行

ASP
47 行
字号 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>add.asp</title>
</head>

<body>
		
		<%
			If Request.Form("username")<>"" And Request.Form("password")<>""_
			 And Request.Form("name")<>""  and Request.Form("sex")<>""  and Request.Form("adress")<>""_
			 and Request.Form("email")<>""  and Request.Form("postalcode")<>"" and Request.Form("fax")<>""_
			 and Request.Form("tel")<>"" then
			 
			 Dim db 
			 Set db=Server.CreateObject("ADODB.Connection") 
			 db.Open "Dbq="&Server.Mappath("database/xingxing.mdb")&";Driver={Microsoft Access Driver (*.mdb)};" 
			 
			 
			 Dim strSql,varUsername,varPassword,varName,verSex,verAdress,verEmail,verPostalcode,verFax,verTel
			 	varUsername=Request.Form("username") 
			 	varPassword=Request.Form("password") 
				varName=Request.Form("name")
				verSex=Request.Form("sex")
				verAdress=Request.Form("adress")
				verEmail=Request.Form("email")
				verPostalcode=Request.Form("postalcode")
				verFax=Request.Form("fax")
				verTel=Request.Form("tel")
				
				strSql="Insert Into user(username,password,usertype,name,sex,tel,fax,adress,email,postalcode,regdate,entnum,dum,cumulation,toolA,toolB,toolC) Values('" & varUsername & "','" & varPassword & "',"& 1 &",'" & varName & "','" & verSex & "','" & verTel & "','" & verFax & "','" & verAdress & "','" & verEmail & "','" & verPostalcode & "',#" & now() & "#,"& 0 &","& 10 &","& 10 &","& 10 &","& 10 &","& 10 &")"  
				db.Execute(strSql)               
				Response.Redirect "index.asp" 
				
				 Else
				Response.Write "请将所有信息填写完整，"
				Response.Write "<a href='reg.asp'>重新添加</a>"
				End If
				
		
		%>

</body>
</html>

add.asp - 源码说明

本页面展示了「ASP,版本,HUANYING NI DE XIAZAI ! LIANXIFANSHI:BINDIYI@163.COM」中的 add.asp 源码文件，采用 ASP 编程语言编写，共 47 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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