23.asp

来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 28 行

<%
'心语
function xinyu(fn1,from1)
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
	sql="SELECT 会员,头像 FROM 用户 WHERE 姓名='" & from1 & "'"
	Set Rs=conn.Execute(sql)
	if rs.eof or rs.bof then
		xinyu=""
	else
	     if rs("会员")=false then
       Response.Write "<script language=JavaScript>{alert('非会员不能发心语!');}</script>"
       Response.End 
         else
		sql="update 用户 set 内力=内力-100 where 姓名='" & from1 & "'"
			conn.execute sql
            txx=rs("头像")
			xinyu="<marquee width=100% behavior=alternate scrollamount=3><font color=AA00CC><img border='0' src='../"& txx &"'>[心语]</font>" & fn1 & "(" & from1 & ")" & "</marquee>"
         end if
		end if
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
	end function
%>