-
18
-
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.
-
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是有关联的:显然第一次输入
-
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
-
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