没有合适的资源?快使用搜索试试~ 我知道了~
asp实用常用代码 ,适合初学者。
资源推荐
资源详情
资源评论
Asp常用代码 Asp常用代码=============================== 删除 ==================================
if request("dels")="dels" then
Set delfile = conn.Execute("select * from [agad] where id="& request("id"))
on error resume next
if (IsNull(delfile("upfile")) = false and delfile("upfile") <> "") then
set fs1 = Server.CreateObject("Scripting.FileSystemObject")
fs1.deletefile(server.mappath("../"&delfile("upfile")))
set fs1 = nothing
end if
delfile.close
set delfile=nothing
sql="delete [agad] where id="&request("id")
conn.execute sql
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end if
=========================== 删除提示 ==================================
<a href="product.asp?dels=dels&id=<%=rs("id")%>" onClick="javascript:if(confirm('您确认此操作吗?')){return true;}else{return false;}">删除</a>
=========================== 常用查询代码 ==================================
set rs=server.CreateObject("adodb.recordset")
sql="delete from product where id="&id&" ORDER BY ID DESC"
rs.open sql,conn,3,3
if request("dels")="dels" then
Set delfile = conn.Execute("select * from [agad] where id="& request("id"))
on error resume next
if (IsNull(delfile("upfile")) = false and delfile("upfile") <> "") then
set fs1 = Server.CreateObject("Scripting.FileSystemObject")
fs1.deletefile(server.mappath("../"&delfile("upfile")))
set fs1 = nothing
end if
delfile.close
set delfile=nothing
sql="delete [agad] where id="&request("id")
conn.execute sql
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end if
=========================== 删除提示 ==================================
<a href="product.asp?dels=dels&id=<%=rs("id")%>" onClick="javascript:if(confirm('您确认此操作吗?')){return true;}else{return false;}">删除</a>
=========================== 常用查询代码 ==================================
set rs=server.CreateObject("adodb.recordset")
sql="delete from product where id="&id&" ORDER BY ID DESC"
rs.open sql,conn,3,3
========================== 瑞腾数据库查询 =============================
select p.*,c3.fd_pcname,c4.* from tb_products p,tb_productcatalog4 c4,tb_productcatalog3 c3 where p.fd_companyID=11534 and p.fd_pc4ID=c4.fd_pcID and c4.fd_pcupid=c3.fd_pcid and c3.fd_pcid=606 and c3.fd_pcupID=67
========================== 图片显示 ===================================
<% if rs("upfile")<>"" or isnull(rs("upfile"))=true then %>
<a href="<%=rs("upfile")%>" target="_blank"><img src="<%=rs("upfile")%>" alt="<%=rs("name")%>" width="100" height="75" border="0" style="background-color: #003366"></a>
<% else %>
<img src="images/none.gif" width="100" height="75">
<% end if %>
========================== 会员退出 ================================
if request("exit")="exit" then
response.Expires=-9999
session.Abandon()
response.Redirect("index.asp")
end if
剩余15页未读,继续阅读
资源评论
leewoonryong
- 粉丝: 1
- 资源: 2
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功