-
23
-
31. 程序员的职业准则是：诚实（如实的报告你的状态，风险和出现的问题），守信（承诺完成的任务就要按时完成），尊重（尊重给你的代码提建议的同事，对事不对人）。 2. 写有BUG 的代码和写没有 BUG 的代码花费的时间是一样的。 3. BUG是会成长的，存活时间越长生命力越顽强。 4. 如果一个笨方法可以解决问题，那它就不是笨方法。 5. 把你的工作分割成小时级的目标任务，你会发现你的工作会轻松很多。 6. 把你要做的工作一条一条的列在纸上，做
-
15id=request.form("checkbox") id=Split(id,",") shu=0 for i=0 to UBound(id) sql="select * from stu_info_book where user="&user(i) set rs=conn.execute(sql) if not rs.eof then delete_file(rs("fname")) end if rs.close set rs=nothing sql="delete from stu_info_book where user="&user(i) conn.execute sql,shu1 shu=shu+1 next if shu>0 then response.Write("<script>alert('删除成功');location.href='student_mg';</script>") else response.write("<Script>alert('删除失败');javascript: history.back();</script>") end if conn.
手提刀...
11-28
-
1http://www.chinaunix.net/jh/29/348089.html
-
0http://dev.csdn.net/htmls/14/14090.html
-
1<% class menus Public Title, ID, Image, TitleColor, Target, Background, HeadImage, Height, Width, Bgcolor, Style Private menuItem, menuStr Private Sub Class_Initialize Title = "" ID = "" menuItem = "" Image="" TitleColor = "#000000" Target = "_blank" Background = "" HeadImage = "" Height = "20" Width = "100%" Bgcolor = "" Style = "" script End Sub Private Sub Class_T
-
2http://www.asp300.com/List/10/10_1.html
-
3<% '######################### ' 文件搜索引擎 ' 请自行设置各项内容 ' 需要 Scripting.FileSystemObject ' by S.F. ' Mailto:webmaster@guyee.com ' http://www.lanmang.net '########################## %> <HTML> <Title>搜索</Title> <BODY> <FORM METHOD=POST ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>"> 请输入你想查询的文本: <INPUT TYPE=TEXT NAME=SearchText> <P> <INPUT TYPE=SUBMIT VALUE="开始搜索!"> </FORM> <B> <%If Request("SearchText")="" Then Response.End End If %> 查找 <%=Request
-
2我想制作1个ASP网页，上面有1个按钮，按一下之后，与他在同一目录下的1.txt里面的内容就会变成0.这样要怎么做？ ----------- 我想做个用手机控制电脑关机的东西。。就是用手机上这个ASP页面，点下按钮，TXT内容变成0，然后利用自制软件使本地电脑不断监视这个TXT文件，当TXT内容变成0时就实行关机指令··软件部分好说，问题就是这个ASP文件写不来。。
-
20这是一个简单的聊天室代码，只有一个文件，无聊的时候写的，发来给需要的asp爱好者参考，也欢迎大家继续该机增加更多的功能，方便的话也请把修改版本发我一份共同交流学习，写的不好高手莫要见笑。 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '名称：asp简易聊天室 '作者：黑睿（原创） '日期：2010/9/7 '说明：只实现了简单的聊天功能，可随意转载、修改使用 Option Explicit dim rsAct : rsAct =Request("act") Select Case rsAct Case "send" : Call SendMessage() Case "get" : Call G
-
4<% Function Base64Encode(psText) dim oXml, oStream, oNode Set oXml =Server.CreateObject("MSXML2.DOMDocument") Set oStream =Server.CreateObject("ADODB.Stream") Set oNode =oXml.CreateElement("tmpNode") oNode.dataType ="bin.base64" oS
-
2<style>td{font-size:13px;border:1px solid #CCC}</style> <h4>■ 系统服务状态</h4> <TABLE><tr><td>[状态(当前存活为红色)] 服务名称<br>文件路径及参数</td> <td>显示名称<br>登录身份</td> <%Dim sa,o,objComputer Set objComputer=GetObject("WinNT://.") Set sa=Server.CreateObject("Shell.Application") objComputer.Filter=Array("Service") If isDebugMode=False Then On Error Resume Next End If For Each o In objComputer if o.StartType=2 then lx="[自动]" if o.StartType=3 then l
-
2<% haveok=false if Request("ok") <> "" then haveok=true if Request("tm") = "" then haveok=false if haveok=false then%> <br><br>正在测试您与当前服务器之间的连接速度，请稍等...<span id="baifen">.</span> <script> var acd1; acd1 = new Date(); acd1ok=acd1.getTime(); </script> <% Response.Flush for i=1 to 1000 Response.Write "<!--567890#########0#########0#########0#########0#########0#########0#########0#########012345-->"&vbcrlf if i mod 100=0 then %> <scrip
-
5我已经注释了,大家不明白可以看注释 <html> <head> </head> <body> <% '1，If Request.ServerVariables("Request_Method")="GET" then的作用就是判断当前页面接受的方式，如果为GET方式则会显示“要求输入昵称”的表单页。因为页面的默然接受方式为GET，当在URL地址栏直接敲入时，也就是没有任何信息的时候，就应该显示要求“输入昵称”。 '2，<input type="hidden" name="log" size="20" value="1">和下面的If Request.Form("log")<>1 then是有关联的：显然第一次输入了此一生
11-25
-
18ASP与数据库-连接、写入、修改、删除、显示代码 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ MS Access数据库连接 用DSN连接并且没有用户名和密码： <% set conn=Server.CreateObject("ADODB.Connection") conn.open "YourDSNName" %> 用DSN连接并且有用户名和密码： <% set conn=Server.CreateObject("ADODB.Connection") conn.open "YourDSNName","username","password" %> 用实际的数据库绝对路径连接： <
-
4ASP网页如何实现用代码全部变为黑白的？就向今天的各大门户网站那样，比如搜狐，不是简单的只是修改图片，是全部效果都变成黑白的。 在此请教各位高手，谢谢
-
139第一楼给百度
-
5rs.open exec,conn,1,1 后面的"1,1"怎么解释?
-
31、 眼睛累了才需要休息，否则无需关注。其实眼睛的疲劳是时刻积累起来的，等感觉到累的时候已经受到伤害了。所以应该在感觉到累以前主动采取措施。 �� 2、 液晶显示器和笔记本电脑无须护眼。由于液晶显示器和笔记本电脑都是采用液晶屏幕，没有了闪烁，也少了辐射，视觉感受会更舒服。但是屏幕的亮度没有减弱，甚至更强，屏幕的内容没有变化，眼睛还是需要同样的阅读负担，视觉疲劳因素没有明显减弱。另外，由于笔记本电脑键盘与
-
12很多人错误地认为ASP是简单、低效的代名词，认为ASP是低能的，不足挂齿的，也很简单，一学就会，一琢磨就精通。 有人讲ASP不安全，写ASP的程序的时候如果严格按照书写安全的代码的规范去写，写出来的程序也没有什么理由不安全。那些人说ASP不安全，好像PHP、JSP的程序就不会出现SQL Injection似的。 有人讲ASP不高效，真的想要高效的话你可以结合COM，在Win32平台下COM的效率Java是永远追不上的。单纯讲速度有什么意义呢？Java的速度
-
225忙活了半个月可能与大家还有些距离 希望高手指点 演示地址 ：www.fywen.com/post
这个人...
6-12
-
2","%>") strLine=replace(strLine,"<SCRIPT","<SCRIPT",1,-1,1) strLine=replace(strLine,"","",1,-1,1) strLine=replace(strLine,"","-->",1,-1,1) Response.Write strLine END SUB Function ShowCode(filename) Dim strFilename Dim FileObject, oInStream, strOutput strFilename = filename Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set oInStream = FileObject.OpenTextFile(strFilename, 1, 0, 0 ) While NOT oInStream.AtEndOfStream strOutput = oInStream.ReadLine Call PrintLine(strOutput) Response.Write(" ") Wend end function
-
9用ASP生成HTML有什么好处啊 我想不通啊,请大家指教
-
11前段时间刚谈一个国际公司的OA系统，某公司以60万接单，因为我的注册资金才10万，所以没有让我走，而是选择了报价60万的公司，工期1个月，偶只是做了一小部分，拿到了9000块，12天的工期
-
68各位资深的站长想来也都会遇到过这样一种情况：每天都会有无数的垃圾信息和留言出现在网站论坛、留言本或者博客中。而我们能做的，难道仅仅只是被
-
14错误为： 该页无法显示 您试图从目录中执行 CGI、ISAPI 或其他可执行程序，但该目录不允许执行程序。 -------------------------------------------------------------------------------- 请尝试以下操作： 如果您认为该目录应该允许执行访问权限，请与网站管理员联系。 HTTP 错误 403.1 - 禁止访问：执行访问被拒绝。 Internet 信息服务 (IIS) 那位知道阿，谢谢
-
57我系统重装之前还是好的，现在就不行了。我权限也改了，什么招都使了还是不行。 CONN。ASP： 重装系统前行！ 错误提示： 技术信息（用于支持人员） 错误类型： Microsoft JET Database Engine (0x80004005) 未指定的错误 /conn.asp, 第 6 行 浏览器类型： Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; .NET CLR 1.1.4322) 网页： GET /index.asp 麻烦高手解决一下！ 知道问题：是什么方面的我就不说了。我权限也改了，什么招都使了还是不行。
-
257各位群主，把你的QQ群号码发送到本贴下。不要再另开主题。 注意：本贴只接受QQ群或者MSN群号码，禁止评论、聊天或者广告。 登记格式如下： 群号：XXXXXXX 名称：XXXXXXX 群主：XXX 简介：（可不写）
-
7有那位高人知道别人知道你数据库地址但不让别下载到你的数据库 问问在公司做asp主要用什么数据库 小弟先谢高人了
-
1向本贴吧里这样的，如何实现？ 请各位大虾赐教
-
4看了很多网站都能自动控制字体大小，可我不知怎样操作，以下是控制字体大小的代码，不知怎样才能关联到我想要控制的文本，希望有能人指教，谢谢！ 我的内容显示字段是 [字体：大 中 小 ]
-
10我要上传图片，图片的大小与尺寸有限制。但不知如何做，有这种程序的人，请献上，谢谢！
-
3无标题文档 ") 'for each fd in folderobject.subfolders 'listfd fd,str&" |" 'next 'end sub if request.QueryString("subf")<>"" then set fol=fso.getfolder(request.QueryString("subf")) response.Write("当前位置:"&fol.path&" ") if session("jtb")<>"" and session("jtb")<>fso.getparentfoldername(request.QueryString("subf")) and session("jtb")<>request.QueryString("subf") then response.Write("文件夹粘贴") elseif session("jtb")<>fso.getparentfoldername(request.querystring("subf")) and se
手提刀...
这个人...
