www.gusucode.com > ASP+ACCESS医药公司网站建设毕业设计(源代码+论文+答辩PPT) > ASP+ACCESS医药公司网站建设毕业设计(源代码+论文+答辩PPT)\ASP医药网站042\医药网站代码\disNoteInfo.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="Connections/conn.asp" --> <% if request("iId")="" then response.end end if %> <% Dim Recordset3 Dim Recordset3_numRows Set Recordset3 = Server.CreateObject("ADODB.Recordset") Recordset3.ActiveConnection = MM_conn_STRING Recordset3.Source = "select * from NoteBook where iId='"&request("iId")&"'" Recordset3.CursorType= 1 Recordset3.CursorLocation = 2 Recordset3.LockType = 1 Recordset3.Open() Recordset3_numRows = 0 %> <p> 标题: <%=Recordset3("Title")%> </p> <p> 作者: <%=Recordset3("Id")%> </p> <p> 内容: <%=Recordset3("comment")%> </p> <% Recordset3.Close() Set Recordset3 = Nothing %>