<%@ Language=VBScript %>
<%
'アドレス直接指定対策
'if Session("menu")="" then Location(redirectURL)
'DB Open
Set db = Server.CreateObject("ADODB.Connection")
db.Open bbsDBNAME, bbsUSERNAME, bbsUSERPASS
id = Request.QueryString("id")
if StrChkNull(id)=0 then id = 0
'RecordSet
SQL = "Select * From master Where(master.id)=" & id & ""
Set rs = db.Execute(SQL)
if rs.EOF then
Response.Write ""
Response.Write ""
Response.Write "該当の書きこみはありません。"
Response.Write ""
Response.Write ""
Response.end
end if
%>
返信