<%
SqlLocalNamesex ="(local)" '连接IP [ 本地用 (local) 外地用IP ]
SqlUsernamesex ="sa" '用户名
SqlPasswordsex ="nmufh&sql_sa" '用户密码
SqlDatabaseNamesex ="zixun" '数据库名
ConnStrsex = "Provider=Sqloledb; User ID=" & SqlUsernamesex & "; Password=" & SqlPasswordsex & "; Initial Catalog = " & SqlDatabaseNamesex & "; Data Source=" & SqlLocalNamesex & ";"
set connsex=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
connsex.open connstrsex
end if
sql="select top 12 id,icon,topic,posttime from forum where deltopic<>1 order by id Desc"
Set rs1= Server.CreateObject("ADODB.Recordset")
rs1.open sql,connsex,1,1
response.Write("
")%>