fpv.asp

使用ASP元件（請自行下載、安裝或登錄） AspUpload+AspJpeg+Jmail[或AspMail] 整合JS與FLASH套件 Highslide JS+SWFUpload+Titl

<%
RecordID=request("RecordID")
IF RecordID="" Then RecordID="1"
RecordID=request("RecordID")
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("../aspupload.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="SELECT * from list WHERE RecordID=" & RecordID
rs.open sqlstr,conn,3,2
rs("fpv")=rs("fpv")+1
rs.Update
Lno=rs("Lno")
rs.close
response.redirect "../fpv4/index.asp?o="&Lno
%>