<% hua=Request("zh") keyword=request("keyword") ID=Request("id") %> 云山画廊

 ■ 小山屋首页   ■ 小客厅   ■ 小书房   ■ 小画室   ■ 小居室   ■ 休闲厅    
当前位置： 小山屋-> 小山画廊-> 作品展示->
<% set conn=server.createobject("adodb.connection") DBPath = Server.MapPath("hz.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") dim rs, sql set rs = server.createobject("adodb.recordset") dim curpage, strcate sql="select * from huazhan where id=" & request("id") rs.Open sql,conn,3,2 if rs.bof and rs.eof then rs.close response.write "
没有符合条件的作品！
" else %>

<%=rs("title")%>

作者：<%=rs("name")%> <%=rs("xb")%> <%=rs("nl")%> <%=rs("userarea")%> <%=rs("school")%>
">

<%=rs("content")%>
<% rs.close end if set rs=nothing conn.Close set conn=nothing %>

小山屋工作室  2003

[xsw/xsw1/ssg21.htm]