发帖 回复
返回列表
  • 6290阅读
  • 2回复

【原创】适用于IIS的Bug管理软件 [复制链接]

 上一主题 下一主题
离线fanyu
骑士
 
只看楼主 正序阅读 楼主  发表于: 2005-08-29
只做了显示Bug条目的功能，其它的没有做。
复制代码
  1. <HTML>
  2. <HEAD>
  3. <META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=gb_2312-80">
  4. <TITLE>Bug查询</TITLE>
  5. </HEAD>
  6. <BODY>
  7. <%
  8. If IsObject(Session("_conn")) Then
  9.   Set conn = Session("_conn")
  10. Else
  11.   Set conn = Server.CreateObject("ADODB.Connection")
  12.   conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("work/R6.mdb")
  13.   Set Session("_conn") = conn
  14. End If
  15. %>
  16. <%
  17. If IsObject(Session("Bug67E58BE2_rs")) Then
  18.   Set rs = Session("Bug67E58BE2_rs")
  19. Else
  20.   sql = "SELECT Bug列表.Bug名称, Bug列表.Bug现象, Bug列表.文档编号, Bug列表.模块位置, Bug列表.URL地址, Bug列表.可能引起Bug的修改, Bug列表.分类, Bug列表.影响程度,Bug列表.等级, Bug列表.提交人, Bug列表.提交时间, Bug列表.解决人, Bug列表.解决时间, Bug列表.备注 FROM Bug列表   "
  21.   Set rs = Server.CreateObject("ADODB.Recordset")
  22.   rs.Open sql, conn, 3, 3
  23.   If rs.eof Then
  24.     rs.AddNew
  25.   End If
  26.   Set Session("Bug67E58BE2_rs") = rs
  27. End If
  28. %>
  29.      <FONT size=6 COLOR=#000000><center><B>Bug列表</B></center></FONT>
  30. <TABLE BORDER=1 BGCOLOR=#ffffff CELLSPACING=0 width=3000>
  31. <marquee width=1024>公告：从即日起本站站长，将不定期发布OA系统补丁，请需要下载的用户即使下载并测试，谢谢合作。</marquee>
  33. <H3>公告：本Lotus服务器地址:[url]http://192.168.0.120:8848[/url] Lotus内测账号fanyu,密码12345678，欢迎大家试用</H3>
  34. <tr>
  35. <Td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000 >Bug名称</FONT></Td>
  36. <Td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000 width=1%>Bug现象</FONT></Td>
  37. <Td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000 >文档编号</FONT></Td>
  38. <Td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000 >模块位置</FONT></Td>
  39. <Td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000 >URL地址</FONT></Td>
  40. <Td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000 >可能引起Bug的修改</FONT></Td>
  41. <Td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000 >分类</FONT></Td>
  42. <Td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000 >影响程度</FONT></Td>
  43. <Td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000 >等级</FONT></Td>
  44. <Td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000 >提交人</FONT></Td>
  45. <Td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000 >提交时间</FONT></Td>
  46. <Td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000 >解决人</FONT></Td>
  47. <Td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000 >解决时间</FONT></Td>
  48. <Td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000 >备注</FONT></Td>
  49. </tr>
  53. <%
  54. On Error Resume Next
  55. rs.MoveFirst
  56. do while Not rs.eof
  57. %>
  58. <TR VALIGN=TOP >
  59.      <%
  60.      'result=Server.HTMLEncode(rs.Fields("Bug" & ChrW(21517) & ChrW(31216)).Value)
  61.       result=Server.HTMLEncode(rs.Fields("Bug" & ChrW(21517) & ChrW(31216)).Value)%>
  62.      <% if Server.HTMLEncode(rs.Fields(ChrW(35299) & ChrW(20915) & ChrW(20154)).Value)+"*"="*" then %> <% else result=result+"(已解决)" end if %>
  63. <TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000><%=result%><BR></FONT></TD>
  64. <TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Bug" & ChrW(29616) & ChrW(35937)).Value)%><BR></FONT></TD>
  65. <TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000><%=Server.HTMLEncode(rs.Fields(ChrW(25991) & ChrW(26723) & ChrW(32534) & ChrW(21495)).Value)%><BR></FONT></TD>
  66. <TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000><%=Server.HTMLEncode(rs.Fields(ChrW(27169) & ChrW(22359) & ChrW(20301) & ChrW(32622)).Value)%><BR></FONT></TD>
  67. <TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("URL" & ChrW(22320) & ChrW(22336)).Value)%><BR></FONT></TD>
  68. <TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000><%=Server.HTMLEncode(rs.Fields(ChrW(21487) & ChrW(33021) & ChrW(24341) & ChrW(36215) & "Bug" & ChrW(30340) & ChrW(20462) & ChrW(25913)).Value)%><BR></FONT></TD>
  69. <TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000><%=Server.HTMLEncode(rs.Fields(ChrW(20998) & ChrW(31867)).Value)%><BR></FONT></TD>
  70. <TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000><%=Server.HTMLEncode(rs.Fields(ChrW(24433) & ChrW(21709) & ChrW(31243) & ChrW(24230)).Value)%><BR></FONT></TD>
  71. <TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000><%=Server.HTMLEncode(rs.Fields(ChrW(31561) & ChrW(32423)).Value)%><BR></FONT></TD>
  72. <TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000><%=Server.HTMLEncode(rs.Fields(ChrW(25552) & ChrW(20132) & ChrW(20154)).Value)%><BR></FONT></TD>
  73. <TD BORDERCOLOR=#c0c0c0 ALIGN=RIGHT><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000><%=Server.HTMLEncode(rs.Fields(ChrW(25552) & ChrW(20132) & ChrW(26102) & ChrW(38388)).Value)%><BR></FONT></TD>
  74. <TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000><%=Server.HTMLEncode(rs.Fields(ChrW(35299) & ChrW(20915) & ChrW(20154)).Value)%><BR></FONT></TD>
  75. <TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000><%=Server.HTMLEncode(rs.Fields(ChrW(35299) & ChrW(20915) & ChrW(26102) & ChrW(38388)).Value)%><BR></FONT></TD>
  76. <TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:14pt FACE="宋体" COLOR=#000000><%=Server.HTMLEncode(rs.Fields(ChrW(22791) & ChrW(27880)).Value)%><BR></FONT></TD>
  78. </TR>
  79. <%
  80. rs.MoveNext
  81. loop%>
  82. </TABLE>
  83. </BODY>
  84. </HTML>
fanyufanyu@126.com
fanyufanyu@gmail.com
QQ:522071254
回复
举报
分享到 淘江湖 新浪 QQ微博 QQ空间 开心 人人 豆瓣 网易微博 百度 鲜果 白社会 飞信
离线fanyu
骑士
只看该作者 2楼 发表于: 2005-08-30
这个东西是我在我公司的项目管理里用的代码，其实就是为了用起来方便，现在的Bug管理功能太多，而且配置也很麻烦，自已做的好。
fanyufanyu@126.com
fanyufanyu@gmail.com
QQ:522071254
回复
举报
离线XChinux
总版主
只看该作者 1楼 发表于: 2005-08-29
楼主高哇，呵呵
二笔 openSUSE Vim N9 BB10 XChinux@163.com 网易博客 腾讯微博
承接C++/Qt、Qt UI界面、PHP及预算报销系统开发业务
回复
举报
发帖 回复
返回列表
快速回复
限100 字节
 
上一个 下一个