as_insert_user.asp

来自「新手第一次做系统」· ASP 代码 · 共 48 行

ASP

48 行

<!-- #include file="conn.asp" -->
<body bgcolor="">
<SCRIPT LANGUAGE="vbScript">
	Sub insert()
		If f1.t1.value="" Then 
			msgbox"用户名不能为空"
		else	
			f1.action="as_insert_user.asp?q=1"
		end if
	End Sub
</SCRIPT>
<style>
	table tr{text-align:center}
</style>
<FORM METHOD=POST ACTION="" name="f1">
<TABLE border="1" align="center" bordercolor="#CC00FF">
<TR>
	<TD height="55"><CENTER><FONT SIZE="5" COLOR="red">添加用户</FONT></CENTER></TD>
</TR>
<TR>
	<TD height="50">用户姓名：<INPUT TYPE="text" NAME="t1">&nbsp;<FONT COLOR="red">*</FONT></TD>
</TR>
<TR>
	<TD height="50">用户单位：<INPUT TYPE="text" NAME="t2">&nbsp;&nbsp;</TD>
</TR>
<TR>
	<TD height="80" width="340">备&nbsp;&nbsp;注：(可以不填写)<br><TEXTAREA NAME="t3" ROWS="3" COLS="40"></TEXTAREA></TD>
</TR>
<TR height="40">
	<TD><CENTER><INPUT TYPE="submit" value=" 添加 " onclick="insert()">&nbsp;&nbsp;&nbsp;&nbsp;<INPUT TYPE="reset" value=" 取消 "></CENTER></TD>
</TR>
<TR>
	<TD><FONT SIZE="4" COLOR="red"><CENTER>*为必填内容</CENTER></FONT></TD>
</TR>
</TABLE>
<%
	If request("q")="1" Then
		conn.execute("insert into [user](user_Name,User_Address,User_Remarks) values('" & request("t1")  & "','" & request("t2")  & "','" & request("t3")  & "')")

		'成功后跳转
		response.write"<SCRIPT LANGUAGE='JavaScript'>"
		response.write"alert('你已经成功添加用户!');"
		response.write "location.href='see_user.asp'"
		response.write"</SCRIPT>"
	End If
%>
</FORM>
</body>

as_insert_user.asp - 源码说明

本页面展示了「新手第一次做系统」中的 as_insert_user.asp 源码文件，采用 ASP 编程语言编写，共 48 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?