untitled-2.asp

来自「航空订票系统基于asp.net和sql2005包含数据库和图片」· ASP 代码 · 共 35 行

<%
Dim oConn
DataBaseType=1
Sub oConn_Start
  Dim DBConnectionStr
	If DataBaseType = 1 Then 'SQL数据库连接参数
    'DBConnectionStr = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=.;User ID=sa;Password=123456;Database=kgDataBase;"
	DBConnectionStr = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=surlink-004\sqlserver;User ID=fang;Password=fang;Database=shakg;"
	'Else 'Access数据库连接参数：数据库相对路径及名称，为安全起见，请更改数据库后缀名，如将noahsite.mdb改为noahsite.asp
    'Dim DBFile
    'DBFile = BasePath & "data/noahsite.mdb"
    'DBConnectionStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBFile)
	End If
  On Error Resume Next
  Set oConn = Server.CreateObject("ADODB.CONNECTION")
  oConn.CursorLocation = 3
  oConn.Open DBConnectionStr
	If Err.Number <> 0 Then
		Err.Clear
		Set oConn = Nothing
		Response.Write "Database error, please check database connection string. <br>数据库连接错误，请检查数据库连接字符串。"
		Response.End
	End If
End Sub
%>
<%oConn_Start
response.Write "ok"
dim StrSql,Rs
StrSql = "Select * From Sm_WebAdmin"
Set Rs = oConn.execute(StrSql)
do while not rs.eof
response.Write(rs("AdminUserName")&"<br>"&rs("AdminPassword"))
rs.movenext
loop
%>