📄 lurecoder_3.htm
字号:
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html;charset=gb2312">
<META name="RTF TO HTML USE" content="LureCoder(诱惑代码)1.0">
<META name="GENERATOR" content="网络程序员伴侣(Lshdic)2005">
<STYLE>
*{font-size:12px;font-family:宋体,隶书,黑体,Courier New,System,Courier;}
font{font-weight:normal;}
</STYLE>
</HEAD>
<BODY link="blue" vlink="blue" alink="blue" style="word-break:break-all">
<BASE target="_blank"><div style='color:rgb(50,50,50);font-weight:;'>
<script language='javascript'>
function window.onload(){
window.status='加亮 4020 字,返回 '+document.all(0).outerHTML.length+' 字(不包含回车符) - LureCoder(诱惑代码)1.0'
}
</script>
<FONT color='#049262'><!--这是用于语法加亮测试的测试、演示代码，你可以删除，换成你需要加亮的程序代码--></FONT>
<BR><FONT color='#346CA6'><HTML </FONT><FONT color='#346CA6'>xmlns:v</FONT><FONT color='#346CA6'>></FONT></FONT>
<BR><FONT color='#346CA6'><HEAD></FONT>
<BR><FONT color='#346CA6'><META </FONT><FONT color='#346CA6'>http-equiv="Content-Type" content='text/html;charset=gb2312'</FONT><FONT color='#346CA6'>></FONT></FONT>
<BR><FONT color='#346CA6'><Meta </FONT><FONT color='#346CA6'><FONT color='#FF0000'>name="Gemeratpr"</FONT> content='网络程序员伴侣(Lshdic)2005'</FONT><FONT color='#346CA6'>></FONT></FONT>
<BR><FONT color='#346CA6'><TITLE></FONT><FONT color='#346CA6'></TITLE></FONT>
<BR><FONT color='#961C14'><STYLE></FONT>
<BR>v\:*{behavior:url(#default#VML);}
<BR>*{font-size:12px;}
<BR>a{text-decoration:none;color:navy;}
<BR>a:hover{color:red;}
<BR><FONT color='#049262'>/*
<BR>CSS样式定义结束
<BR>*/</FONT>
<BR>
<BR><FONT color='#961C14'></STYLE></FONT>
<BR><FONT color='#346CA6'></HEAD></FONT>
<BR><FONT color='#346CA6'><BODY </FONT><FONT color='#346CA6'>topmargin='2' leftmargin='2'</FONT><FONT color='#346CA6'>></FONT></FONT>
<BR><FONT color='#346CA6'><BASE </FONT><FONT color='#346CA6'>target='_top'</FONT><FONT color='#346CA6'>></FONT></FONT>
<BR><FONT color='#049262'><!--以下开始BOBY部分的编写--></FONT>
<BR><FONT color='#346CA6'><v:Oval </FONT><FONT color='#346CA6'>fillcolor='red' <FONT color='#084973'><B>style=</B></FONT>'width:100;height:150' <FONT color='#FF0000'>id='mab'</FONT> ff <FONT color='#FF0000'>id=c</FONT> ee/</FONT><FONT color='#346CA6'>></FONT></FONT>
<BR><FONT color='#346CA6'><a </FONT><FONT color='#346CA6'>href='<A href='http://www.sjzxdl.com/fyw' style='color:#7574DF'><U>http://www.sjzxdl.com/fyw</U></A>' <FONT color='#FF0000'>name='mylink'</FONT></FONT><FONT color='#346CA6'>></FONT></FONT>超级连接<FONT color='#346CA6'></a></FONT>
<BR><FONT color='#346CA6'><img </FONT><FONT color='#346CA6'>src='<A href='fyw20.jpg' style='color:#7574DF'><U>fyw20.jpg</U></A>' <FONT color='#FF0000'>name=mypicture</FONT> <FONT color='#084973'><B>style=</B></FONT>'filter:gray'</FONT><FONT color='#346CA6'>></FONT></FONT>
<BR>
<BR><FONT color='#961C14'><%</FONT>
<BR><FONT color='#C19007'>dim cc
</FONT>
<BR>
cc=true
<BR><FONT color='#1D06DC'>sub sub1</FONT>
<BR>for i=0 to 10
<BR>response.write "LureCoder(诱惑代码)1.0"
<BR><FONT color='#9C8C17'><B>next</B></FONT>
<BR><FONT color='#1D06DC'>end sub</FONT>
<BR><FONT color='#C19007'>set link1=Server.CreateObject("ADODB.Connection")
</FONT>
<BR>
link1.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("data\数据库.mdb")
<BR>
<BR>link1.close
<BR><FONT color='#C19007'>set link1=Nothing
</FONT>
<BR>
<FONT color='#961C14'>%></FONT>
<BR>
<BR><FONT color='#961C14'><script></FONT>
<BR><FONT color='#D034F9'>var var1="abc";</FONT>
<BR><FONT color='#D034F9'>var att=new ActiveXObject("ADODB.Stream");</FONT>
<BR><FONT color='#1D06DC'>function ok(str1)</FONT>{ <FONT color='#049262'> //测试JS脚本
</FONT>
<BR>
<FONT color='#D12353'>if(str1=="")</FONT></FONT>alert("值不能为空")
<BR><FONT color='#D12353'>switch(str1)</FONT></FONT>{
<BR>case 1:return "a"
<BR>case 2:return "b"
<BR>case 3:return "c"
<BR>case 4:<FONT color='#D034F9'>return false</FONT>
<BR>case 5:<FONT color='#D034F9'>return true</FONT>
<BR>case 6:<FONT color='#D12353'>if(document.bgColor=="red"&&document.title=="cc")</FONT></FONT>{return "yes"}<FONT color='#9C8C17'><B>else</B></FONT>{return "no"}
<BR>}}
<BR>ok(<FONT color='#961C14'><%</FONT>=cc<FONT color='#961C14'>%></FONT>)
<BR><FONT color='#961C14'></script></FONT>
<BR>
<BR><FONT color='#961C14'><script language="vbscript"></FONT>
<BR><FONT color='#C19007'>on error resume <FONT color='#9C8C17'><B>next</B></FONT></FONT>
<BR>
<BR><FONT color='#C19007'>dim var2
</FONT>
<BR>
var2="abc"
<BR><FONT color='#C19007'>set obj1=CreateObject("Wscript.Shell")
</FONT>
<BR>
<FONT color='#1D06DC'>sub ok2(str2) </FONT>'测试VBS脚本
<BR><FONT color='#9C8C17'><B>if str1=true then</B></B></FONT></FONT> alert "值为真" <FONT color='#9C8C17'><B>else</B></FONT> alert "值为假"
<BR><FONT color='#1D06DC'>end sub</FONT>
<BR><FONT color='#1D06DC'>function ok3</FONT>
<BR>For Each j in document.body
<BR>var2=var2+var2
<BR><FONT color='#9C8C17'><B>Next</B></FONT>
<BR><FONT color='#1D06DC'>end function</FONT>
<BR>ok2 <FONT color='#961C14'><%</FONT>=cc<FONT color='#961C14'>%></FONT>
<BR><FONT color='#961C14'></script></FONT>
<BR>
<BR><FONT color='#961C14'><?</FONT>xml version="1.0" encoding='gb2312'<FONT color='#961C14'>?></FONT>
<BR><FONT color='#961C14'><?</FONT>xml-stylesheet type='text/xsl' href='<A href='xsl1.xsl' style='color:#7574DF'><U>xsl1.xsl</U></A>'<FONT color='#961C14'>?></FONT>
<BR><FONT color='#346CA6'><document></FONT>
<BR><FONT color='#346CA6'><page </FONT><FONT color='#346CA6'><FONT color='#FF0000'>name=''</FONT></FONT><FONT color='#346CA6'>></FONT></FONT><FONT color='#346CA6'></page></FONT>
<BR><FONT color='#346CA6'><page </FONT><FONT color='#346CA6'><FONT color='#FF0000'>name=''</FONT></FONT><FONT color='#346CA6'>></FONT></FONT><FONT color='#346CA6'></page></FONT>
<BR><FONT color='#346CA6'><renyuan </FONT><FONT color='#346CA6'>name="D.anjae" pass="123"</FONT><FONT color='#346CA6'>></FONT></FONT>
<BR><FONT color='#049262'><![CDATA[</FONT>
<BR>测试Xml语句
<BR><FONT color='#049262'>]]></FONT>
<BR><FONT color='#346CA6'></renyuan></FONT>
<BR><FONT color='#346CA6'></document></FONT>
<BR>
<BR><FONT color='#961C14'><?</FONT>xml version='1.0' encoding='gb2312'<FONT color='#961C14'>?></FONT>
<BR><FONT color='#346CA6'><xsl:stylesheet </FONT><FONT color='#346CA6'>xmlns:xsl='http://www.w3.org/TR/WD-xsl'</FONT><FONT color='#346CA6'>></FONT></FONT>
<BR><FONT color='#346CA6'><xsl:element </FONT><FONT color='#346CA6'><FONT color='#FF0000'>name='A'</FONT></FONT><FONT color='#346CA6'>></FONT></FONT> <FONT color='#049262'><!--创建HTML的<FONT color='#346CA6'><A></FONT>超级连接对象--></FONT>
<BR><FONT color='#346CA6'><xsl:attribute </FONT><FONT color='#346CA6'><FONT color='#FF0000'>name='href'</FONT></FONT><FONT color='#346CA6'>></FONT></FONT>http://www.lshdic.com<FONT color='#346CA6'></xsl:attribute></FONT>
<BR><FONT color='#346CA6'><xsl:attribute </FONT><FONT color='#346CA6'><FONT color='#FF0000'>name='style'</FONT></FONT><FONT color='#346CA6'>></FONT></FONT>color:red;cursor:hand;<FONT color='#346CA6'></xsl:attribute></FONT>
<BR>连接标题
<BR><FONT color='#346CA6'></xsl:element></FONT>
<BR><FONT color='#049262'><![CDATA[</FONT>
<BR>测试Xsl语句
<BR><FONT color='#049262'>]]></FONT>
<BR><FONT color='#346CA6'></xsl:stylesheet></FONT>
<BR>
<BR><FONT color='#961C14'><?</FONT>php
<BR>echo "测试Php"
<BR><FONT color='#961C14'>?></FONT>
<BR>
<BR><FONT color='#961C14'><%</FONT>@import namespace='system.data'<FONT color='#961C14'>%></FONT>
<BR><FONT color='#961C14'><%</FONT>@import namespace='system.data.oledb'<FONT color='#961C14'>%></FONT>
<BR><FONT color='#961C14'><%</FONT>
<BR>'测试Asp.net语句
<BR><FONT color='#C19007'>dim conn1="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("alluser.mdb")
</FONT>
<BR>
<FONT color='#C19007'>dim link2=new oledbconnection(conn1) '这个例子是执行一条删除用的SQL语句
</FONT>
<BR>
link2.open()
<BR><FONT color='#C19007'>dim com2=new oledbcommand("delete from table1 where user='风云舞'",link2)
</FONT>
<BR>
com2.ExecuteNonQuery()
<BR>com2=nothing:link2.close():link2=nothing
<BR>
<BR><FONT color='#C19007'>dim link1=new oledbconnection(conn1) '这是一个特殊的分页程序(但是被在下简化为普通的输出记录的程序)
</FONT>
<BR>
link1.open()
<BR><FONT color='#C19007'>dim com0=new oledbcommand("select count(id) from table1 where link=0",link1)
</FONT>
<BR>
<FONT color='#C19007'>dim counts=com0.executescalar() '得到记录总数
</FONT>
<BR>
link1.close():link1.open() '必须关闭一次，在次打开连接
<BR><FONT color='#C19007'>dim com1=new oledbcommand("select * from table1 where link=0 order by gengxindates desc",link1)
</FONT>
<BR>
<FONT color='#C19007'>dim rs=com1.executereader() '定义记录集
</FONT>
<BR>
<FONT color='#C19007'>dim i as integer
</FONT>
<BR>
while rs.read()
<BR>response.write (rs.item("id") & "<FONT color='#346CA6'><p></FONT>")
<BR>response.write (rs.item("sex"))
<BR>end while
<BR>rs.close():link1.close():com1=nothing:rs=nothing:link1=nothing '释放资源
<BR><FONT color='#961C14'>%></FONT>
<BR>
<BR><FONT color='#961C14'><script language="vb" runat="Server"></FONT>
<BR><FONT color='#C19007'>private <FONT color='#1D06DC'>sub Application_Start(sender as Object,e as Eventargs) </FONT>'测试global.asax模版
</FONT>
<BR>
Application("onlineuser")=0
<BR><FONT color='#1D06DC'>end sub</FONT>
<BR><FONT color='#C19007'>private <FONT color='#1D06DC'>sub Application_End(sender as Object,e as Eventargs)</FONT>
</FONT>
<BR>
Application("onlineuser")=0
<BR><FONT color='#1D06DC'>end sub</FONT>
<BR><FONT color='#C19007'>private <FONT color='#1D06DC'>sub Application_BeginRequest(sender as Object,e as Eventargs)</FONT>
</FONT>
<BR>
<BR><FONT color='#1D06DC'>end sub</FONT>
<BR><FONT color='#C19007'>private <FONT color='#1D06DC'>sub Application_EndRequest(sender as Object,e as Eventargs)</FONT>
</FONT>
<BR>
<BR><FONT color='#1D06DC'>end sub</FONT>
<BR><FONT color='#C19007'>private <FONT color='#1D06DC'>sub Session_Start(sender as Object,e as Eventargs)</FONT>
</FONT>
<BR>
Application.Lock()
<BR>Application("onlineuser")=Application("onlineuser")+1
<BR>Application.Unlock()
<BR><FONT color='#1D06DC'>end sub</FONT>
<BR><FONT color='#C19007'>private <FONT color='#1D06DC'>sub Session_End(sender as Object,e as Eventargs)</FONT>
</FONT>
<BR>
Application.Lock()
<BR>Application("onlineuser")=Application("onlineuser")-1
<BR>Application.Unlock()
<BR><FONT color='#1D06DC'>end sub</FONT>
<BR><FONT color='#961C14'></script></FONT>
<BR>
<BR><FONT color='#346CA6'></BODY></FONT><FONT color='#346CA6'></textarea></FONT><FONT color='#346CA6'><Textarea></FONT><FONT color='#346CA6'></textarea></FONT><FONT color='#346CA6'></textarea></FONT>
<BR><FONT color='#346CA6'></HTML></FONT>
</div></BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -