引用

<% response.write titletext cip = request.servervariables("REMOTE_ADDR") id = request.querystring("id") DATAS = server.mappath("sql/dismdb.mdb") set conn = server.createobject("adodb.connection") conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & DATAS & ";" set rs = server.CreateObject("ADODB.RecordSet") sql = "Select * from main Where id=" & id & " " rs.open sql,conn,1,1 if rs.BOF then response.redirect "msg?msg=2" response.end end if main=rs("main") rpmain=rs("main") titleid = rs("titleid") set conns = server.createobject("adodb.connection") conns.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & DATAS & ";" set rss = server.CreateObject("ADODB.RecordSet") sql = "Select * from title Where id=" & titleid & " " rss.open sql,conns,1,1 %>
主題:<%=rss("title")%>
Name:(必填)
Mail:
IP:<%=cip%>
..::首頁|回主題::..
引用<%=rs("name")%>所述:

<%=(main)%>


<%=copyleft%>
<% rs.close conn.close rss.close conns.close %>