html> head> meta http-equiv="Content-Type" content="text/html; charset=gb2312"> title>testmb/title> /head> body leftmargin="0" topmargin="0"> table width="100%" height="100%" border="0" cellpadding="5" cellspacing="2"> tr align="right" bgcolor="#CCCCCC"> td height="20" colspan="2">$cntop$/td> /tr> tr valign="top"> td width="25%" bgcolor="#e5e5e5">$cnleft$/td> td width="74%" bgcolor="#f3f3f3">$cnright$/td> /tr> /table> /body> /html> |
% set conn= Server.CreateObject("ADODB.Connection") connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="Server.MapPath("testmb.mdb") conn.Open connstr %> |
% dim topcode sub cntop() topcode="现在时间是:" topcode=topcodenow() end sub dim leftcode,i sub cnleft() for i = 1 to 5 leftcode=leftcode"p>cnbruce.com" next end sub dim rightcode sub cnright() for i = 1 to 9 rightcode=rightcode"hr color="iiiiii">" next end sub %> |
!--#include file="conn.asp" --> !--#include file="lib.asp" --> % sql="select * from moban where m_id=1" set rs=Server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 mb_code=rs("m_html") rs.close set rs=nothing cntop() mb_code=replace(mb_code,"$cntop$",topcode) cnleft() mb_code=replace(mb_code,"$cnleft$",leftcode) cnright() mb_code=replace(mb_code,"$cnright$",rightcode) response.write mb_code %> |