[政府企业] 绝对精品的公司企业网站!漂亮大气

[复制链接]
本帖最后由 iqilu 于 2009-5-25 15:49 编辑

演示

http://ts.iqilu.cn/qy7/
   
前后台完整,页面大气漂亮!完整,贴张图看看就知道了,买来的一直没有用上,现在放出来,
注意:因为买的时候,原来的卖我的,加密了!我忘记修改了

请找到inc/conn.asp

你会看到下列的代码:

<%
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))


server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))

If server_v1<>"" Then
if  mid(server_v1,8,len(server_v2))<>server_v2  then  
  Response.Redirect
http://**********.cn

end if n1  
End if
   
dim conn,db   
dim connstr

db="Databases/%#@$@#FDS@#$%%#.asp" '数据库文件位置

on error resume next VOsR An/N   
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver 3PWL @>z i  
(*.mdb)};" HXC  ;N p  
set conn=server.createobject("ADODB.CONNECTION")
if err then _  
err.clear

else
conn.open connstr  I  
end if

sub CloseConn()

conn.close

set conn=nothing

end sub

%> #  
请把红色字删除,就能去掉自动跳转!!!

下载地址:
游客,如果您要查看本帖隐藏内容请回复
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏
收藏0
本帖违规,我要举报
举报本帖
免责声明:
本站资源均来源于网络或是会员上传,版权和著作权归原作者所有,如有不愿意被转载,请点击这里通知我们第一时间删除!
所有资源仅供下载后在本地学习研究参考使用!您必须在下载资源后的24个小时之内,从您的电脑中彻底删除。
所有资源不能用于任何商业和非法目的,否则一切后果请用户自负。如您需要商用,请支持和购买正版,本站不对您的使用负任何责任!
会员所发布的信息中如有涉及到具体的第三方个人(单位/公司)隐私、商业秘密等,侵犯其权益,对其构成不良影响的,本站有权不做通知直接删除!

精彩评论73

跳转到指定楼层
73#
dalaoqd 发表于 2015-3-9 15:12:53 | 只看该作者
支持下。。。
72#
linforlive 发表于 2014-4-23 21:34:42 | 只看该作者
好久没来了 过来看看
71#
Believing 发表于 2014-4-23 21:25:07 | 只看该作者
下载来看看~~~~~~~~~~!!
70#
xiasala 发表于 2014-1-7 11:41:26 | 只看该作者
好东西啊,非常感谢楼主
69#
syzawsm 发表于 2013-1-3 02:03:43 | 只看该作者
同意楼上的观点,广告AD极其讨厌。
弹出的广告一个接一个,实在无耻!
假装做点修改的样子,博取大家信任,其实里面暗藏后门。
还有域-名限-制!
68#
nextwa 发表于 2012-12-7 02:47:16 | 只看该作者
顶楼主啦..希望楼主多发精品好帖啦.....
67#
huuwii 发表于 2012-9-12 12:18:32 | 只看该作者
不错哦,强烈推荐哦
66#
htmp888 发表于 2010-10-25 12:47:49 | 只看该作者
弹出的广告一个接一个,实在无耻!
65#
yed1034 发表于 2010-9-25 09:17:20 | 只看该作者
谢谢分享好东西
64#
52exam 发表于 2010-9-20 13:16:05 | 只看该作者
<table style="MARGIN-TOP: 8px" cellspacing="0"
                        cellpadding="0" width="100%" border="0">
                                    <tbody>
                                      <tr align="middle">
                                        <td width="728" height="212" background="">
                                                                               
                                                                                <style type="text/css">
<!--

#demo {
        MARGIN: auto; OVERFLOW: hidden; WIDTH: 700px;  TEXT-ALIGN: center
}
-->
</style>
<DIV id=demo>
        <TABLE height=110 cellSpacing=0 cellPadding=0 align=left border=0
            cellspace="0">
          <TBODY>
            <TR>
              <TD id=demo1 vAlign=top><!--滚动区的高度和宽度-->
                    <TABLE width=170 height="91"
                  border=0 align=center cellPadding=0 cellSpacing=0 cellspace="0">
                      <TBODY>
                        <TR>
                          <TD id=demo1 vAlign=top>
                                                  
<span id="tb_A101">
              <!--------------------显示最新产品的子程序开始--------------------->
                            <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                              <%
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & Product_count & " * from Product where Passed=True and Elite=true  order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
%>
                              <tr align="center">
                                <%
           If rs_Product.eof and rs_Product.bof then
           response.write "<td><p align='center'><font color='#ff0000'>还没任何产品</font></p></td>"
           else
                          row_count=1
                          Do While Not rs_Product.EOF%>
                                <td><table width="1%"  border="0" cellspacing="0" cellpadding="0">
                                  <tr>
                                    <td><table width="100%"  border="0" cellpadding="3" cellspacing="1" bgcolor="#E9E9E9">
                                        <tr>
                                          <td width="130" bgcolor="#FFFFFF"><table width="130"  border="0" cellpadding="0" cellspacing="0" bgcolor="#E9E9E9">
                                              <tr>
                                                <td width="130" height="110" align="center" valign="middle" bgcolor="#FFFFFF"><a href="ProductShow.asp?ID=<%=rs_Product("id")%>"><img src=<%=rs_Product("DefaultPicUrl")%> width="170" height="140" border=0 ></a></td>
                                              </tr>
                                          </table></td>
                                        </tr>
                                    </table></td>
                                    <td valign="top"><img src="Img/yyri2.gif" width="7" height="112" /></td>
                                  </tr>
                                  <tr>
                                    <td colspan="2"><table width="100%"  border="0" cellspacing="2" cellpadding="0">
                                        <tr>
                                          <td height="30" align="center"><a href="ProductShow.asp?ID=<%=rs_Product("id")%>"><%=rs_Product("Title")%></a></td>
                                        </tr>
                                    </table></td>
                                  </tr>
                                </table></td>
                                <% if row_count mod 8 =0 then%>
                              </tr>
                              <tr>
                                <%end if%>
                                <%
rs_Product.MoveNext
row_count=row_count+1
Loop
end if
rs_Product.close
%>
                                
                              </tr>
                          </table><!--------------------显示最新产品的子程序结束--------------------->
              </span>                                                  
                                                  </TD>
                          <TD id=demo2 vAlign=top width=2></TD>
                        </TR>
                      </TBODY>
                  </TABLE>
                <!--最新图文代码结束--></TD>
              <TD id=demo2 vAlign=top></TD>
            </TR>
          </TBODY>
        </TABLE>
      </DIV>
<script language="JavaScript" type="text/javascript">
// JavaScript Document

var speed=20;
document.getElementById("demo2").innerHTML=document.getElementById("demo1").innerHTML
function Marquee(){
if(document.getElementById("demo2").offsetWidth-document.getElementById("demo").scrollLeft<=0)
document.getElementById("demo").scrollLeft-=document.getElementById("demo1").offsetWidth
else{
document.getElementById("demo").scrollLeft++;
}
}
var MyMar=setInterval(Marquee,speed)
document.getElementById("demo").onmouseover=function() {clearInterval(MyMar)}
document.getElementById("demo").onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>   
                                                                               
                                                                               
                                        </td>
                                      </tr>
                                    </tbody>
                                </table>
您需要登录后才可以回帖 登录 | 注册帐号

本版积分规则

关注0

粉丝3

帖子0

发布主题
15年专注源码提供
侵权投诉处理

点击这里投诉侵权

周一至周日10:00-21:00

反馈建议/违规信息举报

webmaster@souho.net 在线客服咨询

扫描二维码关注我们

严禁任何人以任何形式在本站发表与我国法律相抵触的言论!本站资源仅供本地学习研究,禁止用于任何违法犯罪活动!

搜虎源码所有资源来自网络收集整理,版权和著作权归原作者所有,仅供本地研究学习。若有侵权,请联系管理员及时删除!

所有资源严禁用于任何商业目的,否则一切后果请用户自负。如您需要商用,请支持和购买正版,本站不对您的使用负任何责任!

如会员所发布的信息中有涉及到具体的第三方个人(单位/公司)隐私、商业秘密等,侵犯其权益,对其构成不良影响的,本站有权不做通知将该信息予以直接删除处理!

网站备案号: 鄂ICP备17009394号-2