高校问答百战疲劳壮士哀:asp执行div中的代码问题
来源：百度文库 编辑：高校问答 时间：2024/04/28 14:30:45
在页面打开时不执行div中的代码，当点击确定时执行div 中的代码，能不能用函数实现
div中的代码是保存到数据库中的代码，如下：
<%
dim conn, rs, sql, imgpath
Set conn=Server.CreateObject("ADODB.Connection")
conn = "Driver={Microsoft Access Driver (*.mdb)};DBQ= d:\data\Sysmaint.mdb"
Set rs=Server.CreateObject("ADODB.RecordSet")
if imgpath = "" then
Response.Write ""
end if
sql="select * from imgpath"
rs.open sql,conn,1,3
rs.addnew
rs("imgpath") = spathfilename
rs.update
rs.close
set rs=nothing
%>
怎么把代码封装到函数里呀？
div中的代码是保存到数据库中的代码，如下：
<%
dim conn, rs, sql, imgpath
Set conn=Server.CreateObject("ADODB.Connection")
conn = "Driver={Microsoft Access Driver (*.mdb)};DBQ= d:\data\Sysmaint.mdb"
Set rs=Server.CreateObject("ADODB.RecordSet")
if imgpath = "" then
Response.Write ""
end if
sql="select * from imgpath"
rs.open sql,conn,1,3
rs.addnew
rs("imgpath") = spathfilename
rs.update
rs.close
set rs=nothing
%>
怎么把代码封装到函数里呀？
if request("action")="add" then do()
sub do()
dim conn, rs, sql, imgpath
Set conn=Server.CreateObject("ADODB.Connection")
conn = "Driver={Microsoft Access Driver (*.mdb)};DBQ= d:\data\Sysmaint.mdb"
Set rs=Server.CreateObject("ADODB.RecordSet")
if imgpath = "" then
Response.Write ""
end if
sql="select * from imgpath"
rs.open sql,conn,1,3
rs.addnew
rs("imgpath") = spathfilename
rs.update
rs.close
set rs=nothing
end sub
确定按钮里只要传递下action参数就可以了
如:<a href="....asp?action=add">确定</a>
封装到函数里
点击按钮后调用函数
不过只限于客户端脚本