function.asp

不是我做的一个留言板

<%
function user_group_f(user_group_inof,f_id)
user_group_inof=cint(user_group_inof)
select case user_group_inof
	case 2 '本班成员
		user_group_i="<font color=#000000>"&l_top_USERGROUP2&"</font>"
		group_img=2
	case 3 '管理员
		user_group_i="<font color=#996633>"&l_top_USERGROUP3&"</font>"
		group_img=3
	case 4 '超级管理员
		user_group_i="<font color=#FF00FF>"&l_top_USERGROUP4&"</font>"
		group_img=4
        case 5 '站长
		user_group_i="<font color=#ff0000>"&l_top_USERGROUP5&"</font>"
		group_img=5
	case else '游客 
		user_group_i="<font color=#C0C0C0>"&l_top_USERGROUP1&"</font>"
		group_img=1
	end select 
     f_g_img="<img src="&img_path&"/group_img/"&group_img&".gif   border=0 />"
     if f_id="" then
	response.write f_g_img
	 response.write user_group_i
      end if
   if f_id=1 then 
   response.write user_group_i
    end if
   if f_id=2 then 
   response.write f_g_img
    end if	
end function
' ##############################################################
function logno_inof_f(logno_a)
logno_inof_c=cstr(logno_a)
l=len(logno_inof_c)
do while logno_inof_i<l
logno_inof_i=logno_inof_i+1
logno_inof_left=left(logno_inof_c,logno_inof_i)
logno_inof_img=right(logno_inof_left,1)
logno_inof_img=web_background&"/num_img/num"&logno_inof_img&".gif"
response.write "<img src='"&logno_inof_img&"'>"
loop
end function
' ##############################################################
function sex_f(sex_i)
if sex_i="男" then
sex_img="boy"
else
sex_img="girl"
end if
response.write "<img src="&web_background&"/"&sex_img&".gif border='0'>"
end function
'################################################################
function up_money_f(up_money,update_user)
up_money_sql="update [user] set momey='"&up_money&"' where username='"&update_user&"'"
conn.execute(up_money_sql)
end function
%>