📄 createtarok.asp

📁 一套比较完整的内部技术支持全部源代码,请大家共同分享
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/tar.asp" -->
<%
if request.form("LINK_METHOD")="" then
	response.redirect"createTar1.asp"
	response.end
end if

%>
<%
dim TAR_LEVEL
TAR_LEVEL=4
if request.form("IF_REQUIRE_CONTINUE")="是" then
	TAR_LEVEL=1
else
	if request.form("IF_BYPASS")="是" and request.form("IF_CONTINUE")="是" and request.form("IF_LOSS_SERVICE")="是" then
		TAR_LEVEL=4
	elseif request.form("IF_BYPASS")="否" and request.form("IF_CONTINUE")="否" and request.form("IF_LOSS_SERVICE")="否" then
		TAR_LEVEL=2
	else
		TAR_LEVEL=3
	end if
end if
%>
<%
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_tar_STRING
rs.Source = "SELECT * FROM TAR"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
rs.addnew
rs("CREATER")=session("username")
rs("CREATE_TIME")=now()
rs("UPDATE_TIME")=date()
rs("STATUS")="新创建"
rs("CREATER")=session("username")
rs("TAR_LEVEL")=TAR_LEVEL
rs("SUPPORTER")=""
rs("LINKMAN")=request.form("LINK_MEN")
rs("COMPANY")=request.form("company")
rs("PHONE")=request.form("PHONE")
rs("EMAIL")=request.form("EMAIL")
rs("MOBIL")=request.form("MOBILE")
rs("LINKMETHOD")=request.form("LINK_METHOD")
rs("PRODUCT")=request.form("PRODUCT")
rs("IF_REQUIRE_CONTINUE")=request.form("IF_REQUIRE_CONTINUE")
rs("SUBJECT")=request.form("SUBJECT")
rs("URL")=request.form("URL")
rs("INSTANCE")=request.form("INSTANCE")
rs("VERSION")=request.form("VERSION")
rs("BROWSER")=request.form("BROWSER")
rs("DETAIL")=request.form("DETAIL")
rs("IF_REPRODUCIBLE")=request.form("IF_REPRODUCIBLE")
rs("OCCURE_TIME")=request.form("OCCURE_TIME")
rs("STEP")=request.form("STEP")
rs("IF_EVER_WORK")=request.form("IF_EVER_WORK")
rs("IF_OTHER_SYSTEM")=request.form("IF_OTHER_SYSTEM")
rs("CHANGES")=request.form("CHANGES")
rs("IF_BYPASS")=request.form("IF_BYPASS")
rs("IF_CONTINUE")=request.form("IF_CONTINUE")
rs("IF_LOSS_SERVICE")=request.form("IF_LOSS_SERVICE")
rs.update
rs.close
rs.Source = "SELECT * FROM TAR WHERE subject='" & replace(request.form("subject"),"'","''") & "' AND creater='" & session("username") & "' ORDER BY ID DESC"
rs.open
%>
<html>
<head>
<title>Untitled Document</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 align="center" valign="top"><p><br>
        已经成功的创建了问题！</p>
      <p>问题号码为:<%=rs("ID")%></p>
      <p><a href="tar.asp?mod=p">返回问题列表</a></p></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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