<% strSQL="Select * From web_link Where m_id=" & WebUserID rs.open strSQL,conn,1,1 if rs.recordcount>0 then strContent=replace(trim(rs("wl_content")),"'","\'") strContent=replace(strContent,chr(13) & chr(10),"") response.Write("document.write('" & strContent & "');") else response.Write("document.write('
网站友情链接

如果您没有设置友情链接内容,请到后台的友情链接进行设置!
进入后台管理
');") end if rs.close set rs=nothing conn.close set conn=nothing %>