<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../WeiHaifenglong.mdb")
%>
<% set rs=server.CreateObject("adodb.recordset")
rs.open"select username from Company where id="& request("userid"),conn,1,1
%>
<% set rs=server.CreateObject("adodb.recordset")
rs.open"select * from Company where id="& request("userid"),conn,1,1
ftitle=rs("ftitle")
newtitle=rs("newtitle")
newfont=rs("newfont")
newfontsize=rs("newfontsize")
newfontcolor=rs("newfontcolor")
neweffect=rs("neweffect")
newbold=rs("newbold")
fmid=rs("id")
moban=rs("moban")
rs.close%>
<% if ftitle<>"" then%><%=ftitle%><%else%>未填写<%end if%>
