<%
Dim act
Dim conn, rsPosts, sqlstr, Res
Set conn = Server.CreateObject("ADODB.Connection")
' conn.open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
' "Data Source="& Server.MapPath("bbs.mdb") &";"
conn = "driver={SQL Server};server=dbs;database=chinatimes_org;uid=chinatime;password=timechina;"
'conn = "driver={SQL Server};server=alicenb;database=tree;uid=sa;password=;"
'Set Res = Server.CreateObject("ADODB.Recordset")
'Res.RecordCount
'Res.GetRows
'Res.Move
'res.Index
Function SqlEncode(s)
If s="" or IsEmpty(s) Then
SqlEncode = null
Else
SqlEncode = s
End If
End Function
Function showURL()
Response.Write "