UC知道谁能告诉我下这串代码每一句都是什么意思？谢谢了
来源：百度知道 编辑：UC知道 时间：2024/06/10 06:34:43
数据库连接
<%
dim db,conn,myconn
db="/database/product.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open MyConn
%>
'添加数据
<%
name=request.form("name")
type_=request.form("type_")
about=ubbcode(request.form("about"))
pic=request.form("PIC")
if name="" or pic="" or type_="" then
response.write"错误!内容必须添写!或您没有选择类别"
else
set sql=conn.execute("Insert Into RY_WH(title,about,pic,type_,time_) Values ('"&name&"','"&about&"','"&pic&"','"&type_&"','"&date()&"')")
set sql=nothing
response.redirect("q_admin.asp")
end if
%>
'
<%
dim db,conn,myconn
db="/database/product.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open MyConn
%>
'添加数据
<%
name=request.form("name")
type_=request.form("type_")
about=ubbcode(request.form("about"))
pic=request.form("PIC")
if name="" or pic="" or type_="" then
response.write"错误!内容必须添写!或您没有选择类别"
else
set sql=conn.execute("Insert Into RY_WH(title,about,pic,type_,time_) Values ('"&name&"','"&about&"','"&pic&"','"&type_&"','"&date()&"')")
set sql=nothing
response.redirect("q_admin.asp")
end if
%>
'
通过上述ASP对一个Access数据库进行数据添加，删除，修改操作.
dim db,conn,myconn
db="/database/product.mdb"--指定数据库
Set Conn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open MyConn --打开链接
name=request.form("name")--从页面取值
type_=request.form("type_")--从页面取值
about=ubbcode(request.form("about"))--从页面取值
pic=request.form("PIC")--从页面取值
if name="" or pic="" or type_="" then--判断值是否为空
response.write"错误!内容必须添写!或您没有选择类别"
else
set sql=conn.execute("Insert Into RY_WH(title,about,pic,type_,time_) Values ('"&name&"','"&about&"','"&pic&"','"&type_&"','"&date()&"')")
--添加进数据库
set sql=nothing
response.redirect("q_admin.asp")