|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同，ASP拥有应用系统所有权，用户拥有使用权，应用系统集中放在ASP的数据中心中，集中管理，分散使用，以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务，实现规模效益。语句|实行年夜至分为三个文件：ljmdb.asp(毗连库文件)、entice.asp(sql语句实行主界面)、entice2.asp(select纪录集)
====================================ljmdb.asp
<%
setconndb=server.createobject("ADODB.CONNECTION")
constr="provider=microsoft.jet.oledb.4.0;data
source="&server.mappath("/aspsky.myip.org/entice.mdb")
conndb.openconstr
%>
这是毗连access的，把数据库的地点改成你本人的地点就好了
====================================entice.asp
<%
ifleft(trim(request("sqllanguage")),6)="select"then
%>
<scriptlanguage=javascript>
window.open("entice2.asp?sql=<%=request("sqllanguage")%>","","height=450,width=600,resizable=yes,
scrollbars=yes,status=no,toolbar=no,menubar=no,location=no")
</script>
<%
endif
%>
<!--#includefile=ljmdb.asp-->
<%
%>
<HTML>
<Title>SOL语句实行示例</Title>
<styletype="text/CSS">
<!--
body{font-size:12px}
table{font-size:12px}
-->
</style>
<BodyBgcolor=#009999>
<%
sqllanguage=Request("sqllanguage")
%>
<FormName="FormPst"Method="Post"Action="entice.asp">
<divalign="center"><FieldSet><Legend>请输出SQL语句</Legend>指令：
<Inputtype="text"name="sqllanguage"Size=60>
<Inputtype="Submit"Value="送出">
</FieldSet></div>
</form>
<Hr>
SQL语句实行情形：
<%
ifsqllanguageEmptythen
OnErrorResumeNext
conndb.Execute(sqllanguage)
iferr.number="0"then
message1="实行乐成"
response.writemessage1
else
message1=err.description
response.writemessage1
err.clear
endif
endif
%>
<%
setrstable=conndb.openSchema(20)
rstable.movefirst
%>
<tablewidth="95%"border="0"cellspacing="1"cellpadding="3"align="center"bgcolor="#000000">
<%
dowhilenotrstable.eof
ifrstable("table_type")="TABLE"then
%>
<trbgcolor="#006400">
<tdwidth="18%"nowrap><fontcolor="#FFFFFF">数据库中的表名</font></td>
<tdwidth="82%"nowrap><fontcolor="#FFFFFF">
<%
response.writerstable("table_name")
%>
</font></td>
</tr>
<trbgcolor="#CCCCCC">
<tdwidth="18%"nowrap>该表中的一切字段</td>
<tdwidth="82%"nowrap>
<%
setrstobj=server.createobject("adodb.recordset")
rstsql="select*from"&rstable("table_name")
rstobj.openrstsql,conndb,1
fori=0torstobj.fields.count-1
response.writerstobj(i).name&"|"
next
rstobj.close
setrstobj=nothing
%>
</td>
</tr>
<%
endif
rstable.movenext
loop
rstable.close
setrstable=nothing
%>
</table>
</Body>
</HTML>
<%
conndb.close
setconndb=nothing
%>
=====================================entice2.asp
<Title>select查询器====entice</Title>
<styletype="text/css">
<!--
body{font-size:12px}
table{font-size:12px}
-->
</style>
<BodyBgcolor=#009999>
<!--#includefile=ljmdb.asp-->
<%
rstsql=request("sql")
response.write"你的查询语句为:"&rstsql&"
上面是您所查询的纪录集"
setrstobj=server.createobject("adodb.recordset")
rstobj.openrstsql,conndb,1
response.write",共查到"&rstobj.recordcount&"笔记录"
fcount=rstobj.fields.count
response.write"<tablewidth=98%border=0cellspacing=1cellpadding=3align=center
bgcolor=#000000><trbgcolor=#006400>"
fori=0tofcount-1
response.write"<td><fontcolor=ffffff>"&rstobj(i).name&"</font></td>"
next
response.write"</tr>"
dowhilenotrstobj.eof
response.write"<trbgcolor=#c</p>源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码 |
|
|Archiver|手机版|仓酷云
鄂ICP备14007578号-2
窥视卡
雷达卡
发表于 2015-1-16 22:58:59
收藏
转播
分享
淘帖
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
照妖镜
发表于 2015-1-20 07:09:10