|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
因为现在数据库都使用标准的SQL语言对数据库进行管理,所以如果是标准SQL语言,两者基本上都可以通用的。SQLServer还有更多的扩展,可以用存储过程,数据库大小无极限限制。计数器4.用户办理程序
<%Response.Expires=0
diminput()
thisfile=server.mappath("counter.asp")
Setfs=CreateObject("Scripting.FileSystemObject")
Setthisfile=fs.OpenTextFile(thisfile,1,False)
count=0
dowhilenotthisfile.AtEndOfStream
thisline=thisfile.readline
Redimpreserveinput(count)
input(count)=thisline
count=count+1
loop
thisfile.Close
number=(count-1)/5
setfs=nothing
%>
<html>
<title>计数器办理体系</title>
<body>
<palign="center"><fontstyle="font-size:20pt">计数器办理体系</font></p>
<palign="center">今朝保存用户<%=number%>个</p>
<tablewidth="760">
<tr>
<tdwidth="100"><fontcolor="#FF00FF">编号</font></td>
<tdwidth="200"><fontcolor="#FF00FF">用户名</font></td>
<tdwidth="360"><fontcolor="#FF00FF">网站名</font></td>
<tdwidth="100"><fontcolor="#FF00FF">删除</font></td>
</tr>
<%x=""
fori=1tonumber
x=input((i-1)*5+1)
Response.Write"<tr><tdwidth=100><fontcolor=#00ffFF>"&i&"</font>"
Response.Write"<tdwidth=200><fontcolor=#FFffFF>"&input((i-1)*5+1)&"</font></td>"Response.Write"<td
width=360><fontcolor=#FF00FF>"&input((i-1)*5+4)&"</font></td>"
Response.Write"<tdwidth=100align=left><ahref=dele.asp?id="&x&">删除</a></td></tr>"
next
%>
</table>
</body>
</html>
5.用户删除处置程序dele.asp
<%Response.Expires=0
diminput()
id=Request.QueryString("id")
thisfile=server.mappath("counter.asp")
Setfs=CreateObject("Scripting.FileSystemObject")
Setinfile=fs.OpenTextFile(thisfile,1,False)
counter=0
dowhilenotinfile.AtEndOfStream
thisline=infile.readline
Redimpreserveinput(counter)
input(counter)=thisline
counter=counter+1
loop
infile.Close
number=(counter-1)/5
Setoutfile=fs.CreateTextFile(thisfile)
outfile.WriteLineinput(0)
fori=1tonumber
ifinput((i-1)*5+1)idthen
outfile.WriteLineinput((i-1)*5+1)
outfile.WriteLineinput((i-1)*5+2)
outfile.WriteLineinput((i-1)*5+3)
outfile.WriteLineinput((i-1)*5+4)
outfile.WriteLineinput((i-1)*5+5)
endif
next
outfile.Close
setfs=nothing
Response.Redirect"manage.asp"
%>
---------------------------------------------------
writenbyaspboyandpoweredbyhttp://easp.126.com
</p>源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码 |
|