1_read.asp

相册（（ flash加ASP

<!--#INCLUDE FILE="MyFunction.asp"-->
<!--#INCLUDE FILE="admin.asp"-->
<%
' -----------------------------------------------
' 鍔熻兘:璇诲彇绯荤粺鍩烘湰璁剧疆
' -----------------------------------------------
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
	Response.Write("&pageshang="&oRs("pageshang"))
	Response.Write("&pagezuo="&oRs("pagezuo"))
	Response.Write("&pageyou="&oRs("pageyou"))
	Response.Write("&pagexia="&oRs("pagexia"))
	Response.Write("&shangxia="&oRs("shangxia"))
	Response.Write("&zuoyou="&oRs("zuoyou"))
	Response.Write("&menux="&oRs("menux"))
	Response.Write("&menuy="&oRs("menuy"))
	Response.Write("&donghua="&oRs("donghua"))
	Response.Write("&opentype="&oRs("opentype"))
	Response.Write("&fullview="&oRs("fullview"))
	Response.Write("&bigview="&oRs("bigview"))
	Response.Write("&ext1="&oRs("ext1"))
	Response.Write("&ext2="&oRs("ext2"))
	Response.Write("&ext3="&oRs("ext3"))
	Response.Write("&ext4="&oRs("ext4"))
	Response.Write("&ext5="&oRs("ext5"))
	Response.Write("&ok=1&")
Else
	Response.Write("&ok=0&")
End If
Call DBConnEnd()
%>