usercredit.asp

一个不错的竞价程序

<!--#include file="conn.asp" -->
<!-- #include file="inc/adovbs.inc" -->

<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<%
header
'on error resume next
dim strsql,userid
userid=request.querystring("user_id")
if userid ="" then 
%>
错误的参数
<%else
sql="select credit from users where regid ="&userid
set rs=conn.execute(sql)
		if rs.eof then
			response.write "没有该用户！"
		else
		    credit=rs("credit")
			if trim(credit)=" " then
			response.write "该用户的信用度为0"
			else
			response.write "该用户的信用度为0"&credit&""
			end if
		
		end if
		
 

end if
footer
%>