📄 createtar2.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/tar.asp" -->
<%
if request.form("LINK_METHOD")="" then
response.redirect"createTar1.asp"
response.end
end if
%>
<%
Dim rs_PRODUCT
Dim rs_PRODUCT_numRows
Set rs_PRODUCT = Server.CreateObject("ADODB.Recordset")
rs_PRODUCT.ActiveConnection = MM_tar_STRING
rs_PRODUCT.Source = "SELECT * FROM dbo.PRODUCT_LIST"
rs_PRODUCT.CursorType = 0
rs_PRODUCT.CursorLocation = 2
rs_PRODUCT.LockType = 1
rs_PRODUCT.Open()
rs_PRODUCT_numRows = 0
%>
<%
if request.form("save")="1" and trim(request.form("TEP_NAME"))<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_tar_STRING
rs.Source = "SELECT * FROM TEMPLETE WHERE TEM_NAME='" & trim(request.form("TEP_NAME")) & "' AND CREATER='" & session("username") & "'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
if rs.eof then
rs.addnew
end if
rs("TEM_NAME")=request.form("TEP_NAME")
rs("link_method")=request.form("link_method")
rs("LINK_NAME")=request.form("LINK_MEN")
rs("COMPANY")=request.form("company")
rs("PHONE")=request.form("PHONE")
rs("EMAIL")=request.form("email")
rs("MOBILE")=request.form("mobile")
rs("CREATER")=session("username")
rs.update
rs.close
end if
%>
<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"> <p> </p>
<p><strong>创建问题－－第一步 基本信息</strong><br>
</p>
<p>所有"<font color="#FF0000">*</font>"均为必填项目</p>
<script language=javascript>
String.prototype.Trim = function()
{
return this.replace(/(^\s*)|(\s*$)/g, "");
}
function ckform()
{
if(form2.SUBJECT.value.Trim()=="")
{
alert("标题必须填写！");
form2.SUBJECT.focus();
return false;
}
return true;
}
</script>
<form name="form2" method="post" action="createTar3.asp" onsubmit="return(ckform())">
<table width="90%" border="0">
<tr>
<td align="right"><font color="#FF0000">*</font>问题出现所在系统</td>
<td>
<select name="PRODUCT" id="PRODUCT">
<%
While (NOT rs_PRODUCT.EOF)
%>
<option value="<%=(rs_PRODUCT.Fields.Item("PRODUCT").Value)%>"><%=(rs_PRODUCT.Fields.Item("PRODUCT").Value)%></option>
<%
rs_PRODUCT.MoveNext()
Wend
If (rs_PRODUCT.CursorType > 0) Then
rs_PRODUCT.MoveFirst
Else
rs_PRODUCT.Requery
End If
%>
</select></td>
</tr>
<tr>
<td align="right"> </td>
<td>
<input name="LINK_METHOD" type="hidden" value="<%=request.form("link_method")%>">
<input name="LINK_MEN" type="hidden" value="<%=request.form("link_men")%>">
<input name="COMPANY" type="hidden" value="<%=request.form("company")%>">
<input name="PHONE" type="hidden" value="<%=request.form("phone")%>">
<input name="EMAIL" type="hidden" value="<%=request.form("email")%>">
<input name="MOBILE" type="hidden" value="<%=request.form("mobile")%>">
</td>
</tr>
<tr>
<td align="right"><font color="#FF0000">*</font>问题是否已经严重影响商业运作：</td>
<td>
<select name="IF_REQUIRE_CONTINUE" id="IF_REQUIRE_CONTINUE">
<option value="否">否</option>
<option value="是">是</option>
</select></td>
</tr>
<tr>
<td align="right"> </td>
<td> </td>
</tr>
<tr>
<td align="right"><font color="#FF0000">*</font>问题标题：</td>
<td>
<input name="SUBJECT" type="text" id="SUBJECT" size="50" maxlength="80"></td>
</tr>
<tr>
<td align="right"> </td>
<td> </td>
</tr>
<tr>
<td align="right">
<input type="submit" name="Submit2" value="下一步>>>"></td>
<td> </td>
</tr>
</table>
</form>
<p> </p>
<p></p> </td>
</tr>
</table>
</body>
</html>
<%
rs_PRODUCT.Close()
Set rs_PRODUCT = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -