<%
TYPER=REQUEST("TYPER")
BDPASS=REQUEST("BDPASS")
IF BDPASS="aa" THEN
SESSION("BOARDADMIN")="YES"
END IF
WR=REQUEST("WR")
KEYWORD=REQUEST("KEYWORD")
YR=REQUEST("YR")
MH=REQUEST("MH")
SERHBOOK=YR&"/"&MH
PAGE=REQUEST("PAGE")
IF PAGE="" THEN
PAGE=1
END IF
SN=REQUEST("SN")
IF SN="" THEN
SN="0"
END IF
Defdate=Dateadd("d",-Cint(SN),Date)
yourname=request.form("yourname")
if yourname="" then
yourname=REQUEST.QUERYSTRING("user")
end if
IF SN="0" THEN
SQL="SELECT*FROM Board where NOTETITLE like ('%" &yourname& "%') ORDER BY id2 desc"
END IF
%>
城市當舖
<%
SET CN = SERVER.CREATEOBJECT("ADODB.CONNECTION")
CN.OPEN "DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)};DBQ="&SERVER.MAPPATH("/db/DATA.MDB")
SET RS=SERVER.CREATEOBJECT("ADODB.RECORDSET")
RS.OPEN SQL,CN,1,1,1
SET RS1=SERVER.CREATEOBJECT("ADODB.RECORDSET")
RS1.OPEN "Select * FROM SETUP " ,CN,2,3
RS.PAGESIZE=20
%>
