回覆

<% response.write titletext cip = request.servervariables("REMOTE_ADDR") ids = request.querystring("titleid") 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 title Where id=" & ids & " " rs.open sql,conn,1,1 if rs.BOF then response.redirect "msg.asp?msg=4" response.end end if %>
主題:<%=rs("title")%>
Name:(必填)
Mail:
IP:<%=cip%>
..::首頁::..


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