<% dim rs,sql,username,per username=request.cookies("cnmai")("username") per=request.cookies("cnmai")("per") set rs=server.createobject("adodb.recordset") if per=username then sql = "select * from [user] where username='"&username&"'" else sql = "select * from [com] where username='"&username&"'" end if rs.open sql,conn,1,3 if rs("c")<1 then Response.Write "您没有[上传图片道具]，请联系本站" response.end rs.close set rs=nothing else %>
<%end if%>