fpv.asp

来自「使用ASP元件（請自行下載、安裝或登錄） AspUpload+AspJpeg+」· ASP 代码 · 共 16 行

<%
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
%>