看这个
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="adovbs.inc"-->
<!--#include file="cod_ado.inc"-->
<%
user=request("user")
''''''''''''''''''''''''''短信''''''''''''''''''''''''''''
dim objcnn7,rs7
strdsn=application("cvec")
strsql="select * from bbsmessage where bbsmessage_toreal='"&user&"' order by bbsmessage_id desc"
cod_adoopen objcnn7,rs7,strdsn,strsql
if rs7.recordcount=0 then
response.redirect("shotmessage-r.asp")
end if
%>