ASP的网站源码,怎么 破解

ASP的网站源码,怎么 破解,第1张

挺简单的,我今天搞了一会,他原本是要安装配置什么的,完全是糊弄门外汉的,我直接就不用,我把asp文件剥离出来一样可以用,里面都是完全版的了吧,好像根本不需要破解。asp本身如果是存在功能限制的话不叫破解,而是补写代码,其实你要是懂asp这个东西基本上就没什么限制的,不懂的话肯定迷惑死你。

给你一个我写的吧,这个功能不是很全,你可以到http://dabaokucom 和http://ik8com 和http://3326com去下载的,很多的,还有个网站:http://postbaiducom/fkz=94225146

<% option explicit%>

<!--#Include file="odbc_connectionasp"-->

<!--#Include file="functionasp"-->

<html>

<head>

<title>哈哈论坛欢迎您</title>

<style type="text/css">

<!--

STYLE1 {

color: #0000FF;

font-size: 36px;

}

body {

background-color: #00CCFF;

}

a:link {

text-decoration: none;

}

a:visited {

text-decoration: none;

}

a:hover {

text-decoration: none;

}

a:active {

text-decoration: none;

}

#Layer1 {

position:absolute;

left:746px;

top:134px;

width:174px;

height:49px;

z-index:1;

}

-->

</style>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>

<body>

<div id="Layer1">

<table width="80%">

<tr>

<td> <form name="form1" action="announceasp"> <input type="submit" name="Submit" value="发表新文章"></form></td>

<td><form name="form2" action="indexasp"><input type="submit" name="Submit2" value="回首页"></form></td>

</tr>

</table>

</label>

</div>

<h2 align="center"><a href="indexasp"><img src="image/hahajpg" width="48" height="47" border="0"></a><span class="STYLE1">哈哈论坛欢迎您</span></h2>

<p align="center">                        ————想说就说</p>

<p align="center"> </p>

<center>

<table width="85%" border="1" align="center" cellspacing="2" bordercolor="#8800FF">

<tr bgcolor="#CCFFFF" align="center">

<td width="7%">笑哈哈</td>

<td width="43%">主题</td>

<td width="8%">回复</td>

<td width="8%">点击</td>

<td width="8%">发言人</td>

<td width="26%">发言时间</td>

</tr>

<%

Dim sql,rs

'因为要分页显示查询结果,所以用下面方法创建一个recordset对象

sql="Select From bbs Where layer=1 Order By submit_date desc"

Set rs=ServerCreateObject("ADODBRecordset")

rsOpen sql,db,1 '请注意创建recordset对象的方法

If Not rsBof And Not rsEof Then

'以下主要为了分页显示

Dim page_size '声明每页多少条记录变量

Dim page_no '声明当前是第几页变量

Dim page_total '声明总页数变量

page_size=10 '每页显示10条记录

If Request("page_no")="" Then '如果第一次打开,则page_no为1,否则,

page_no=1 '由传回的参数决定

Else

page_no=cint(Request("page_no"))

End If

Session("page_no")=page_no '将page_no存入session,以备其它页返回时用

rsPageSize=page_size '设置每页多少条记录

page_total=rsPageCount '返回总页数

rsAbsolutePage=page_no '设置当前显示第几页

'下面一段显示当前页的所有记录

Dim I,J

I=0 '该变量用来输出序号

J=page_size '该变量用来控制显示当前页记录

Do While Not rsEof And J>0 '循环直到当前页结束或文件结尾

I=I+1

J=J-1

%>

<tr bgcolor="#FFFFCC" align="center">

<td bgcolor="#00CC99"><img src="image/306_biggif" width="80" height="80">

<td bgcolor="#00CC99"><a href="count_hitsaspbbs_id=<%=rs("bbs_ID")%>">

<%=rs("title")%></a></td>

<td bgcolor="#00CC99"><%=rs("child")%></td>

<td bgcolor="#00CC99"><%=rs("hits")%></td>

<td bgcolor="#00CC99"><%=rs("user_name")%></td>

<td bgcolor="#00CC99"><%=rs("submit_date")%></td>

</tr>

<%

rsMoveNext

Loop

End If

%>

</table>

<p> </p>

<p>&nbsp&nbsp&nbsp&nbsp

<%

'调用子程序,写出有关各页的链接信息

Call select_page(page_no,page_total)

%>

</p>

</center>

</body>

</html>

您说的这个ASP源码是收费的系统,一般推荐开源ASP源码,因为是免费的,而且不比收费的源码差,而且有些功能也比收费的源码好的多,这里推荐KINGCMS,其实和您提供地址链接的源码实现的效果是一样的。

欢迎分享,转载请注明来源:表白网

原文地址:https://h5.hunlipic.com/biaobai/4065399.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2024-04-13
下一篇2024-04-13

发表评论

登录后才能评论

评论列表(0条)

    保存