tardetail.asp
来自「一套比较完整的内部技术支持全部源代码,请大家共同分享」· ASP 代码 · 共 200 行
ASP
200 行
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/tar.asp" -->
<%
Dim rs__MMColParam
rs__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
rs__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_tar_STRING
rs.Source = "SELECT * FROM dbo.TAR WHERE ID = " + Replace(rs__MMColParam, "'", "''") + ""
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
%>
<%
Dim rs_history__MMColParam
rs_history__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
rs_history__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim rs_history
Dim rs_history_numRows
Set rs_history = Server.CreateObject("ADODB.Recordset")
rs_history.ActiveConnection = MM_tar_STRING
rs_history.Source = "SELECT * FROM dbo.TAR_HISTORY WHERE TARID = '" + Replace(rs_history__MMColParam, "'", "''") + "' ORDER BY ID ASC"
rs_history.CursorType = 0
rs_history.CursorLocation = 2
rs_history.LockType = 1
rs_history.Open()
rs_history_numRows = 0
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1
Repeat2__index = 0
rs_history_numRows = rs_history_numRows + Repeat2__numRows
%>
<html>
<head>
<title>问题详细信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="0" topmargin="0">
<table width="99%" height="99%" border="0">
<tr>
<td width="18%" height="73">晨砻内部技术支持网</td>
<td width="82%">banner处</td>
</tr>
<tr>
<td align="center" valign="top">
<!--#include file="inc/menu.asp"-->
</td>
<td align="center" valign="top"><br>
<table width="90%" border="0">
<tr align="center">
<%
if session("username")=rs("creater") or session("issupport")="1" then
%>
<% if session("username")=rs("SUPPORTER") and session("issupport")="1" then%>
<td><a href="updateTar.asp?id=<%=(rs.Fields.Item("ID").Value)%>&action=close">关闭</a></td>
<% end if%>
<% if session("issupport")<>"1" then%>
<td><a href="updateTar.asp?id=<%=(rs.Fields.Item("ID").Value)%>&action=close">关闭</a></td>
<% end if%>
<td><a href="updateTar.asp?id=<%=(rs.Fields.Item("ID").Value)%>">更新</a></td>
<%
end if
%>
<td><a href="#end">到底端</a></td>
</tr>
</table>
<hr size="1">
<table width="90%" border="0" cellspacing="1" bgcolor="#000000">
<tr bgcolor="#FFFFFF">
<td><font color="#000000">问题号：<%=(rs.Fields.Item("ID").Value)%></font></td>
<td><font color="#000000">创建日期：<%=(rs.Fields.Item("CREATE_TIME").Value)%></font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><font color="#000000">创建人帐号：<%=(rs.Fields.Item("CREATER").Value)%></font></td>
<td><font color="#000000">级别：<%=(rs.Fields.Item("TAR_LEVEL").Value)%></font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><font color="#000000">系统名称：<%=(rs.Fields.Item("PRODUCT").Value)%></font></td>
<td><font color="#000000">最后更新日期：<%=(rs.Fields.Item("UPDATE_TIME").Value)%></font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><font color="#000000">提供支持人帐号：<%=(rs.Fields.Item("SUPPORTER").Value)%></font></td>
<td><font color="#000000">状态：<%=(rs.Fields.Item("STATUS").Value)%></font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2"><font color="#000000">标题：<%=(rs.Fields.Item("SUBJECT").Value)%></font></td>
</tr>
</table>
<hr size="1">
解决历史记录
<table width="90%" border="0">
<tr>
<td><strong><%=(rs.Fields.Item("CREATER").Value)%>于<%=(rs.Fields.Item("CREATE_TIME").Value)%></strong>
<br>----------------------------------------------------------------<br>
<pre>
客户（问题发现人）信息
联系人：<%=(rs.Fields.Item("LINKMAN").Value)%>
公司名：<%=(rs.Fields.Item("COMPANY").Value)%>
联系电话：<%=(rs.Fields.Item("PHONE").Value)%>
电子邮件：<%=(rs.Fields.Item("EMAIL").Value)%>
受记号：<%=(rs.Fields.Item("MOBIL").Value)%>
联系方法：<%=rs("LINKMETHOD")%>
</pre>
###系统名称### <%=(rs.Fields.Item("PRODUCT").Value)%>
<br>
###题是否已经严重影响商业运作### <%=(rs.Fields.Item("IF_REQUIRE_CONTINUE").Value)%><br>
###问题标题###<br>
<%=(rs.Fields.Item("SUBJECT").Value)%><br>
<br>
###问题发生的URL地址###<br>
<%=(rs.Fields.Item("URL").Value)%><br>
<br>
###哪一个环境发生了问题### <%=(rs.Fields.Item("INSTANCE").Value)%><br>
###程序版本### <%=(rs.Fields.Item("VERSION").Value)%><br>
###浏览器类型### <%=(rs.Fields.Item("BROWSER").Value)%><br>
###描述这个错误，包括各种错误信息###<br>
<%=(rs.Fields.Item("DETAIL").Value)%><br>
<br>
###问题可以再现吗### <%=(rs.Fields.Item("IF_REPRODUCIBLE").Value)%><br>
###问题发生的时间### <%=(rs.Fields.Item("OCCURE_TIME").Value)%><br>
###问题发生的操作过程###<br>
<%=(rs.Fields.Item("STEP").Value)%><br>
<br>
###曾经能够正常工作吗###<%=(rs.Fields.Item("IF_EVER_WORK").Value)%><br>
###这个问题在其它机器上也能够出现吗###<br>
<%=(rs.Fields.Item("IF_OTHER_SYSTEM").Value)%><br>
<br>
###您的机器最近有什么变化吗###<br>
<%=(rs.Fields.Item("CHANGES").Value)%><br>
<br>
###是否能够轻易的绕过或者在问题周围工作###<%=(rs.Fields.Item("IF_BYPASS").Value)%><br>
###在问题发生后系统是否能够继续正常运行###<%=(rs.Fields.Item("IF_CONTINUE").Value)%><br>
###还能不能使用系统的基本功能，是服务不能到达错误吗###<%=(rs.Fields.Item("IF_LOSS_SERVICE").Value)%><br>
</td>
</tr>
</table>
<br>
<%
While ((Repeat2__numRows <> 0) AND (NOT rs_history.EOF))
%>
<table width="90%" border="0">
<tr>
<td><strong><%=(rs_history.Fields.Item("USERNAME").Value)%>于<%=(rs_history.Fields.Item("PBTIME").Value)%></strong><br>
-----------------------------------------------------<br> <%=(rs_history.Fields.Item("CONTENT").Value)%><br>
<%if session("issupport")=1 and trim(rs_history("upload_Content"))<>""then
%>
<%=rs_history("upload_Content")
%><br>
<%
end if
%> </td>
</tr>
</table>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
rs_history.MoveNext()
Wend
%>
<a name="end"></a><br>
<br>
</td>
</tr>
</table>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
<%
rs_history.Close()
Set rs_history = Nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?