<% 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("

") do while not rs1.eof arraytime=split(trim(rs1("posttime"))," ") response.Write("
• "&leftb(replace(replace(replace(rs1("topic"),vbCrlf,""),"
  ","")," ",""),44)&"...  "&left(trim(arraytime(1)),len(trim(arraytime(1)))-3)&"
") rs1.movenext loop rs1.close set rs1=nothing connsex.close set connsex=nothing response.Write("

")%>