📄 test.asp

📁 物业管理和办公自动化系统

💻 ASP

字号:

<%@ LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title>Hello</title>
</head>
<body>

<%
	
	Dim strConn	
	Dim strLogin
	Dim strPassword
	Dim oConn
    Dim rc
	Dim strSQL
	Dim oRs


	set oConn=Server.CreateObject("ADODB.Connection")
	strConn="Provider=SQLOLEDB;DSN=flowdb;SERVER=(local);User Id=admin;Password=''"
	oConn.open strConn

	'insert 
	strSQL="insert into t_user_account (account_id, account_name) values ('s0006','副经理') "
	'oConn.Execute strSQL

	'output
	strSQL="select * from t_user_account "
	set oRs=oConn.Execute (strSQL)

%>


           <TABLE border = 1>
           <%   
                Do while (Not oRs.eof) %>

                     <tr>
                          <%  For Index=0 to (oRs.fields.count-1) %>
                               <TD VAlign=top><%  = oRs(Index)%></TD>
                          <%  Next %>
                     </tr>
             
                     <%  oRs.MoveNext 
                Loop 
           %>


           </TABLE>






Hello World

<%
	oRs.close
	oConn.Close
	set oRs=nothing
	set oConn=nothing
%>
<form method=post action=test.asp>
<select name=a multiple size=3>
<option value=1 >1
<option value=2 >2
<option value=3 >3

</select>
<input type=submit value="submit">
</form>
<%=Request.Form("a")%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -