28,406
社区成员
发帖
与我相关
我的任务
分享
dim jf
set conn=server.createobject("adodb.connection")
connstr="Driver={Sql Server};Server="&Sqlip&";Database="&Sqldb&";Uid="&SqlUid&";Pwd="&SqlPwd&";"
conn.Open connstr
Set RS=Conn.Execute("SELECT sum(cs) as ok FROM aaa WHERE (bbb='abc')")
jf=rs("ok")
if jf="" then
response.write"<script>alert('你没有分数!');history.go(-1);</Script>"
response.end
End If
<%
dim jf
set conn=server.createobject("adodb.connection")
connstr="Driver={Sql Server};Server="&Sqlip&";Database="&Sqldb&";Uid="&SqlUid&";Pwd="&SqlPwd&";"
conn.Open connstr
Set RS = Conn.Execute("SELECT sum(cs) as ok FROM aaa WHERE bbb='abc'")
jf = rs("ok").Value
if IsNull(jf) then
response.write"<script>alert('你没有分数!');history.go(-1);</Script>"
response.end
End If
%>