%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% pageno=Request.QueryString("pageno") keyno=Request.QueryString("keyno") set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") mymenu="intro" sqltext="select content from miscell where classcode='999' and sortnum=5 " rs.Open sqltext,cn,1,1 if not rs.EOF then content=trim(rs(0)) end if rs.Close sqltext="select content from miscell where classcode='999' and sortnum=6 " rs.Open sqltext,cn,1,1 if not rs.EOF then content2=trim(rs(0)) end if rs.Close mymenu="intro" %>
| 我们的特色 | ||||||||||||||||||||||||||
|
||||||||||||||||||||||||||