Dim coz,rsz,ckk
set coz=server.createobject("ADODB.connection")
coz.open "PROVIDER=SQLOLEDB;DATA SOURCE=(local);UID=sa;PWD=;DATABASE=feedback"
Set rsz=coz.execute("select zt,hf,fdate ,resp ,Sorderno,* from zyb_feed where userid= '" & opId & "' ")
'If Isnull(rsz) Or IsEmpty(rsz) Then
if rsz.eof or rsz.bof then‘如果数据不存在则执行
IP卡
狗仔卡
发表于 2009-11-28 02:56:37
收藏
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡