时间:2021-07-01 10:21:17 帮助过:67人阅读
<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=topcode&now() 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="&i&i&i&i&i&i&">" 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 %> |