1.asp

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

<%
'主题
function titl(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 & "'"
	rs.open sql,conn,1,1
	    if rs.eof or rs.bof then
		   titl=""
	    else
            if rs("道德")<100 then
	                   titl="[<a href=javascript:parent.sw('["&from1&"]'); target=f2>"&from1&"</a>]你的道德好差啊，传不了音呀，还不快去积德呀,道德必须高于100才能传音！！！"
                    else
                       txx=rs("头像")
			           titl="<marquee border='1'><font color=AA00CC><img border='0' src='../"& txx &"'>[千里传音]</font>" & fn1 & "(<a href=javascript:parent.sw('["&from1&"]'); target=f2>"&from1&"</a>)" & "</marquee>"
		            end if
	         end if
    rs.close
	conn.close
	set rs=nothing
	set conn=nothing
end function
%>