test.asp

来自「关于设备管理的大型系统」· ASP 代码 · 共 22 行

<!--#include file="getabcd.asp"-->
<%
'call DBConnBegin()
	Set Conn = Server.CreateObject("ADODB.Connection")
	'On Error Resume Next
	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("%29wodjvndjskkd.asp")
	
	Set Rs = Server.CreateObject( "ADODB.Recordset" )
sql="select * from user_info"

rs.open sql,conn,1,1

response.write rs.recordcount
response.write "OK"
response.write rs("u_account")&"|"&rs("u_name")&"|"&rs("u_level")&"|"&rs("u_pwd")&"<br>"
rs.movenext
response.write rs("u_account")&"|"&rs("u_name")&"|"&rs("u_level")&"|"&rs("u_pwd")&"<br>"
rs.movenext
response.write rs("u_account")&"|"&rs("u_name")&"|"&rs("u_level")&"|"&rs("u_pwd")&"<br><br><br>"
response.write datediff("y","2009-10-25","2007-9-21")&"<br>"
response.write datediff("d","2007-9-21 1:00:00","2007-9-21 19:00:01")&"<br>"
%>