31.asp

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

<%
'心跳
function xintiao(fn1,from1)
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
	sql="SELECT grade,内力 FROM 用户 WHERE 姓名='" & from1 & "'"
	Set Rs=conn.Execute(sql)
	if rs.eof or rs.bof then
		xintiao=""
	else
		if rs("grade")<=2 or rs("内力")<10000  then
		Response.Write "<script language=JavaScript>{alert('武功没几层，就想发心跳！好好练几天吧！');}</script>"
		Response.End
		else
			sql="update 用户 set 内力=内力-10000 where 姓名='" & from1 & "'"
			conn.execute sql                       
                     xintiao="<marquee height=50 behavior=alternate loop=200 direction=up><font face=Webdings class=p>&yuml;</font>[怦然心跳]" & fn1 & "(" & from1 & ")" & "</marquee>"
		end if
	end if
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
	end function
%>