updatetar.asp

来自「一套比较完整的内部技术支持全部源代码,请大家共同分享」· ASP 代码 · 共 167 行

ASP
167 行
字号 
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/tar.asp" -->
<%
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_tar_STRING
rs.Source = "SELECT * FROM dbo.TAR_STATUS ORDER BY ID ASC"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_numRows = 0
%>
<%
Dim rs_info__MMColParam
rs_info__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
  rs_info__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim rs_info
Dim rs_info_numRows

Set rs_info = Server.CreateObject("ADODB.Recordset")
rs_info.ActiveConnection = MM_tar_STRING
rs_info.Source = "SELECT * FROM dbo.TAR WHERE ID = " + Replace(rs_info__MMColParam, "'", "''") + ""
rs_info.CursorType = 0
rs_info.CursorLocation = 2
rs_info.LockType = 1
rs_info.Open()

rs_info_numRows = 0
%>
<%
Dim rs_s__MMColParam
rs_s__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then
  rs_s__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_s
Dim rs_s_numRows

Set rs_s = Server.CreateObject("ADODB.Recordset")
rs_s.ActiveConnection = MM_tar_STRING
rs_s.Source = "SELECT * FROM dbo.USER_LIST WHERE IF_SUPPORT = '" + Replace(rs_s__MMColParam, "'", "''") + "'"
rs_s.CursorType = 0
rs_s.CursorLocation = 2
rs_s.LockType = 1
rs_s.Open()

rs_s_numRows = 0
%>
<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"-->
      &nbsp;</td>
    <td valign="top">
<p><br>
        更新Tar</p>
      <form name="form2" method="post" action="updateTarok.asp">
        <p>请填入内容：
          <input name="TarID" type="hidden" id="TarID" value="<%=request.querystring("id")%>">
        </p>
        <p>
          <textarea name="content" cols="100" rows="10" id="content"></textarea>
        </p>
                  <%
				if session("issupport")<>1 then
		%>
        <p>（如果您要上传文件请<a href="uploadl.asp?id=<%=request.querystring("ID")%>" target="_blank">点击</a>这里）
          <input name="action" type="hidden" id="action" value="<%=request.querystring("action")%>">
        </p>
        <% end if%>
		<p>
          <%
		if session("issupport")=1 then
		%>
        </p>
        <p>如果想仅改变以下列表，请保持内容空白即可</p>
        <p> 更改问题状态为：
          <select name="status" id="status">
            <%
While (NOT rs.EOF)
%>
            <option value="<%=(rs.Fields.Item("STATUS").Value)%>" <%If (Not isNull((rs_info.Fields.Item("STATUS").Value))) Then If (CStr(rs.Fields.Item("STATUS").Value) = CStr((rs_info.Fields.Item("STATUS").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rs.Fields.Item("STATUS").Value)%></option>
            <%
  rs.MoveNext()
Wend
If (rs.CursorType > 0) Then
  rs.MoveFirst
Else
  rs.Requery
End If
%>
          </select>
        </p>
        <p> 功能问题级别为：
          <select name="TL" id="TL">
            <option value="2" <%If (Not isNull((rs_info.Fields.Item("TAR_LEVEL").Value))) Then If ("2" = CStr((rs_info.Fields.Item("TAR_LEVEL").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>2</option>
            <option value="3" <%If (Not isNull((rs_info.Fields.Item("TAR_LEVEL").Value))) Then If ("3" = CStr((rs_info.Fields.Item("TAR_LEVEL").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>3</option>
            <option value="4" <%If (Not isNull((rs_info.Fields.Item("TAR_LEVEL").Value))) Then If ("4" = CStr((rs_info.Fields.Item("TAR_LEVEL").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>4</option>
            <option value="1" <%If (Not isNull((rs_info.Fields.Item("TAR_LEVEL").Value))) Then If ("1" = CStr((rs_info.Fields.Item("TAR_LEVEL").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1</option>
            <option value="0" <%If (Not isNull((rs_info.Fields.Item("TAR_LEVEL").Value))) Then If ("0" = CStr((rs_info.Fields.Item("TAR_LEVEL").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>请选择</option>
          </select>
        </p>
        <p>
		<% if rs_info("supporter")="" or rs_info("supporter")=session("username") then
		%>
          更改支持提供者帐号为：
          <select name="supporter" id="supporter">
            <%
While (NOT rs_s.EOF)
%>
            <option value="<%=(rs_s.Fields.Item("USERNAME").Value)%>" <%If (Not isNull((rs_info.Fields.Item("SUPPORTER").Value))) Then If (CStr(rs_s.Fields.Item("USERNAME").Value) = CStr((rs_info.Fields.Item("SUPPORTER").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rs_s.Fields.Item("REALNAME").Value)%></option>
            <%
  rs_s.MoveNext()
Wend
If (rs_s.CursorType > 0) Then
  rs_s.MoveFirst
Else
  rs_s.Requery
End If
%>
          </select>
		  <% end if%>
        </p>
		<% end if%>
        <p>
          <input type="submit" name="Submit2" value="更新">
        </p>
      </form>
      <p>&nbsp; </p></td>
  </tr>
</table>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
<%
rs_info.Close()
Set rs_info = Nothing
%>
<%
rs_s.Close()
Set rs_s = Nothing
%>

updatetar.asp - 源码说明

本页面展示了「一套比较完整的内部技术支持全部源代码,请大家共同分享」中的 updatetar.asp 源码文件，采用 ASP 编程语言编写，共 167 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与比较相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?