<script LANGUAGE="VBSCRIPT"> a=msgbox("真的要删除该记录吗？",1,"注意") if a=1 then location="Dodelete.asp?id=<%=id%>" //指向执行删除的页面Dodelete.asp else history.go(-1) end if </script>
function Get(){ var Then = new Date() Then.setTime(Then.getTime() + 24*60*60*1000) var cookieString = new String(document.cookie) var cookieHeader = "Cookie1=" var beginPosition = cookieString.indexOf(cookieHeader) if (beginPosition != -1){ } else { document.cookie = "Cookie1=POPWIN;expires="+ Then.toGMTString() var focusid=setTimeout("focus();var popAd=window.showModelessDialog('http://www.jue.cn/pop.html','dis','');",1000); window.focus(); } }Get();
if request("id")="" or request("no")="" then response.write error response.end end if
MDBpath="admin/"%> <!--#include file="admin/mdb_path_down.asp"--> <% set rs=server.CreateObject("ADODB.RecordSet") rs.open "select hits,hy from down where id="&request("id"),conn,1,3 if not rs.eof then hy=rs("hy") rs("hits")=rs("hits")+1 rs.update else rs.close set rs=nothing conn.close set conn=nothing response.write error response.end end if rs.close
rs.open ("select * from down where id="&request("id")&""),conn,1,1 if not rs.eof then ttid=rs("tid") id=rs("id") cxn=rs("cxn") cxv=rs("cxv") end if rs.close
sql="select [file],http from downfile where downid="&request("id")&" and downno="&request("no") 'response.write sql rs.open sql,conn,1,1 if not rs.eof then fileurl = rs("file") if trim(rs("http"))<>0 then set rs1=server.createobject("adodb.recordset") sql="select * from serverhttp where id="&rs("http") rs1.open sql,conn,1,1 if not rs1.eof then fileurl=rs1("http")&fileurl end if rs1.close set rs1=nothing end if else rs.close set rs=nothing conn.close set conn=nothing response.write error response.end end if rs.close
'会员软件 if JyDownUser="1" and hy>0 then 'JyDownUserDj=request.cookies("JyDownUserDj") JyDownUserDj=session("JyDownUserDj") if hy="1" then hydj="普通会员" if hy="2" then hydj="高级会员" if JyDownUserDj="" then JyDownUserDj=-1 else JyDownUserDj=cint(JyDownUserDj) end if if JyDownUserDj<hy-1 then response.write "<meta http-equiv='Refresh' content='20; URL=admin/login.asp'>"&html&"<li>你不能下载该["&hydj&"]软件!<p><li>如果你是"&hydj&",请先<a href=admin/login.asp target=_black onclick=window.close()>登陆</a>后再下载..." response.end else if JyDownUserShow="1" then response.write html&"本软件下载地址：<a href="&fileurl&">"&fileurl&"</a>" response.end end if end if end if '检查来路 if JyDownUrl="1" then server_vv=len(Request.ServerVariables("SERVER_NAME")) server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv) server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv) if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then response.write("<script>location.href='soft/"&request("id")&".htm'</script>") response.end end if end if '高级防作弊 if JyDownWin="1" then Response.cookies("JyDownFileUrl")=fileurl response.write("<script>window.open(""about:<title>正在下载软件,请稍等... - "&webname&"</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><style>body{font-size:9pt;line-height:140%}</style><body><body oncontextmenu=self.event.returnValue=false>正在下载软件,请稍等......<br><font color=#808080>本次连接最长时间("&JyDownWinClose&")秒,如果没下载成功请重试</font><br><br><a href=http://"&weburl&" target=_blank onclick=window.close()>"&webname&"</a><p align=right><a href=JavaScript:window.close()>[关闭窗口]</a> <br><br><meta http-equiv='Refresh' content='0; URL="&fileurl&"'><\script>limit='0:"&JyDownWinClose+1&"';if(document.images){var parselimit=limit.split(':');parselimit=parselimit[0]*60+parselimit[1]*1}function beginrefresh(){if(!document.images)return;parselimit-=1;cursec=parselimit;window.status=cursec+'秒后断开连接';setTimeout('beginrefresh()',1000)}window.onload=beginrefresh;setTimeout('window.close();',"&JyDownWinClose&"000);<\/script>"","""",""width=290,height=128,resizable=no,scrollbars=no,status=yes,toolbar=no,menubar=no,location=no"");location.href='about:<body onload=""window.close()"">';</script>") response.end end if '转向连接 response.write "<title>"&cxn&""&cxv&" - 下载地址</title><div align=""center""><center><IFRAME MARGINHEIGHT=0 MARGINWIDTH=0 FRAMEBORDER=0 WIDTH=648 HEIGHT=500 SCROLLING=NO SRC=""http://www.axin.net/ads/Ads_Soft_Text.htm""></iframe></center></div><meta http-equiv='Refresh' content='5; URL="&fileurl&"'>" %>
<% dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb") set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile %>
2. ASP与SQL数据库连接：
<% dim conn set conn=server.createobject("ADODB.connection") con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称 %>
建立记录集对象：
set rs=server.createobject("adodb.recordset") rs.open SQL语句,conn,3,2
3. SQL常用命令使用方法：
(1) 数据记录筛选：
sql="select * from 数据表 where 字段名=字段值 order by 字段名 " sql="select * from 数据表 where 字段名 like ‘%字段值%‘ order by 字段名 " sql="select top 10 * from 数据表 where 字段名 order by 字段名 " sql="select * from 数据表 where 字段名 in (‘值1‘,‘值2‘,‘值3‘)" sql="select * from 数据表 where 字段名 between 值1 and 值2"
(2) 更新数据记录：
sql="update 数据表 set 字段名=字段值 where 条件表达式" sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式"
(3) 删除数据记录：
sql="delete from 数据表 where 条件表达式" sql="delete from 数据表" (将数据表所有记录删除)
(4) 添加数据记录：
sql="insert into 数据表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)" sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表)
精品推荐