|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码ado|command|工具|ado<!--#includefile="conn.asp"-->
<%setrs=server.createobject("adodb.recordset")
sql="select*fromjtopicorderbyj_iddesc"
rs.opensql,conn,1,1
%>
<scriptlanguage="javascript">
functioncheck1(i,o)
{
document.form.text2.value=i;
document.form.word2.value=o;
}
</script>
<formname="form"method="post"action="sort_in.asp">
<br><b>专题种别:</b>
<inputtype="hidden"name="options"value=>
<selectname="jtop"id="jtop"onchange="check1(document.form.jtop.options[document.form.jtop.selectedIndex].lable,document.form.jtop.options[document.form.jtop.selectedIndex].title)">
<%dowhilenotrs.eof%>
<optionvalue="<%=rs("j_id")%>"lable="<%=rs("j_name")%>"title="<%=rs("j_flag")%>"><%=rs("j_name")%></option>
<%
rs.movenext
loop
%></select>
<inputtype="submit"name="Submit"value="删除"onclick="form.options.value=del"><p>
<inputtype="text"name="word1"size=57value=""maxlength="50"style="width:369;height:22">
<inputname="tui1"type="radio"id="tui"value="0"checked>默许<fontcolor=red><b>0</b></font>
<inputname="tui1"type="radio"id="tui"value="1">保举<fontcolor=red><b>1</b></font>
<inputtype="submit"name="Submit1"value="添加"onclick="form.options.value=new"></p><p>
<inputtype="text"name="text2"size=57value=""maxlength="50"style="width:370;height:22">
<inputtype="text"name="word2"size=57value=""maxlength="50"style="width:70;height:23">
<inputtype="submit"name="Submit2"value="修改"onclick="form.options.value=rename"></p>
</form>
+++++++++++sort_in.asp+++++++++++++++++++++++++++++++++++
<!--#includefile="conn.asp"-->
<%
dimcmdTemp
selectcaserequest.form("options")
case"rename"
onerrorresumenext
SetcmdTemp=Server.CreateObject("ADODB.Command")
setrs=server.createobject("adodb.recordset")
cmdTemp.CommandText="SELECT*FROMjtopicwherej_id="&request.form("jtop")
cmdTemp.CommandType=1
SetcmdTemp.ActiveConnection=conn
rs.OpencmdTemp,,1,3
iferr.Number0then
err.clear
response.write"<br>数据库操作掉败!"
else
rs("j_name")=request.form("text2")
rs("j_flag")=request.form("word2")
rs.Update
rs.Close
setrs=nothing
setcmdTemp=nothing
finished
endif
case"del"
Rem删除栏目/.正文或标志语句:Rem格局:Rem[正文或标志](注释:能够看成标志供跳转语句利用,也能够看成剧本</p>[1][2]下一页
缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全 |
|