2_read.asp

来自「相册（（ flash加ASP」· ASP 代码 · 共 18 行

<!--#INCLUDE FILE="MyFunction.asp"-->
<!--#INCLUDE FILE="admin.asp"-->
<%
' -----------------------------------------------
' 鍔熻兘:璇诲彇绯荤粺鍩烘湰璁剧疆2
' -----------------------------------------------
Dim  oRs,Sql
Call DBConnBegin()
set oRs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT top 1 * FROM [setup]"
oRs.open sql,conn,1,3
if not oRs.eof then
	nr=replace(oRs("tdp"),chr(10),"")
	nr=replace(nr,chr(13),"")
	response.write(nr)
end if
Call DBConnEnd()
%>