<!--#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 
%>
錯誤的參數(shù)
<%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
%>