Response.Expires = 0
Response.Buffer = TRUE
Response.Clear
dim rs
dim cn
dim sql
set rs=server.CreateObject("adodb.recordset")
set cn=Server.CreateObject("ADODB.Connection")
cn.Open "bawei", "sa","itdn1234"
sql="SELECT * FROM pic WHERE imageid = '" & Request.Item("tmid") & "'"
rs.Open sql,cn,1,1