📄 createtar1.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/tar.asp" -->
<%
Dim rs_TEMP
Dim rs_TEMP_numRows
Set rs_TEMP = Server.CreateObject("ADODB.Recordset")
rs_TEMP.ActiveConnection = MM_tar_STRING
rs_TEMP.Source = "SELECT * FROM dbo.TEMPLETE WHERE creater='"& session("username") & "' ORDER BY ID DESC"
rs_TEMP.CursorType = 0
rs_TEMP.CursorLocation = 2
rs_TEMP.LockType = 1
rs_TEMP.Open()
rs_TEMP_numRows = 0
%>
<%
Dim rs_linkmethod
Dim rs_linkmethod_numRows
Set rs_linkmethod = Server.CreateObject("ADODB.Recordset")
rs_linkmethod.ActiveConnection = MM_tar_STRING
rs_linkmethod.Source = "SELECT * FROM dbo.LINKMETHOD"
rs_linkmethod.CursorType = 0
rs_linkmethod.CursorLocation = 2
rs_linkmethod.LockType = 1
rs_linkmethod.Open()
rs_linkmethod_numRows = 0
%>
<%
Dim rs_detail__MMColParam
rs_detail__MMColParam = "4"
If (Request.Form("TEMID") <> "") Then
rs_detail__MMColParam = Request.Form("TEMID")
End If
%>
<%
Dim rs_detail
Dim rs_detail_numRows
Set rs_detail = Server.CreateObject("ADODB.Recordset")
rs_detail.ActiveConnection = MM_tar_STRING
rs_detail.Source = "SELECT * FROM dbo.TEMPLETE WHERE ID = " + Replace(rs_detail__MMColParam, "'", "''") + ""
rs_detail.CursorType = 0
rs_detail.CursorLocation = 2
rs_detail.LockType = 1
rs_detail.Open()
rs_detail_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"-->
</td>
<td align="center" valign="top"><p><strong>创建问题－－第一步</strong></p>
<p>所有"<font color="#FF0000">*</font>"均为必填项目<br>
</p>
<form name="form2" method="post" action="createTar1.asp">
<table width="90%" border="0">
<tr>
<td width="36%">使用已保存的客户资料模板！选择相应模板点击“应用模板”按钮</td>
<td width="64%"><select name="TEMID" id="TEMID">
<option value="4" <%If (Not isNull("自己填写")) Then If ("4" = CStr("自己填写")) Then Response.Write("SELECTED") : Response.Write("")%>>自己填写</option>
<%
While (NOT rs_TEMP.EOF)
%>
<option value="<%=(rs_TEMP.Fields.Item("ID").Value)%>" <%If (Not isNull("自己填写")) Then If (CStr(rs_TEMP.Fields.Item("ID").Value) = CStr("自己填写")) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rs_TEMP.Fields.Item("TEM_NAME").Value)%></option>
<%
rs_TEMP.MoveNext()
Wend
If (rs_TEMP.CursorType > 0) Then
rs_TEMP.MoveFirst
Else
rs_TEMP.Requery
End If
%>
</select>
<input type="submit" name="Submit2" value="应用模板">
</td>
</tr>
</table>
</form><br>
<script language=javascript>
String.prototype.Trim = function()
{
return this.replace(/(^\s*)|(\s*$)/g, "");
}
function ckform()
{
if(form3.LINK_MEN.value.Trim()=="")
{
alert("联系人必须填写！");
form3.LINK_MEN.focus();
return false;
}
if(form3.LINK_MEN.value.Trim()=="")
{
alert("联系人必须填写！");
form3.LINK_MEN.focus();
return false;
}
if(form3.COMPANY.value.Trim()=="")
{
alert("公司名称必须填写！");
form3.COMPANY.focus();
return false;
}
if(form3.PHONE.value.Trim()=="")
{
alert("联系人电话必须填写！");
form3.PHONE.focus();
return false;
}
if(form3.EMAIL.value.Trim()=="")
{
alert("联系人电子邮件必须填写！");
form3.EMAIL.focus();
return false;
}
if (!ckemail(form3.EMAIL.value.Trim())){alert("邮箱地址好像不正确吧!");form3.EMAIL.focus();return false;}
return true;
}
function ckemail(e){
var str="1234567890abcdefghijklmnopqrstuvwxyz-_@.";
for(i=0;i<e.length;i++)
{
if(str.indexOf(e.charAt(i).toLowerCase())<0)
return false;
}
if (e.indexOf("@")<0)
return false;
if (e.indexOf(".")<0)
return false;
return true;
}
</script>
<form name="form3" method="post" action="createtar2.asp" onsubmit="return(ckform())">
<table width="90%" border="0">
<tr>
<td colspan="2">基本客户信息（问题发现者）信息</td>
</tr>
<tr>
<td width="35%" align="right"><font color="#FF0000">*</font>联系方式：</td>
<td width="65%"><select name="LINK_METHOD" id="LINK_METHOD">
<%
While (NOT rs_linkmethod.EOF)
%>
<option value="<%=(rs_linkmethod.Fields.Item("LINKMETHOD").Value)%>" <%If (Not isNull((rs_detail.Fields.Item("LINK_METHOD").Value))) Then If (CStr(rs_linkmethod.Fields.Item("LINKMETHOD").Value) = CStr((rs_detail.Fields.Item("LINK_METHOD").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rs_linkmethod.Fields.Item("LINKMETHOD").Value)%></option>
<%
rs_linkmethod.MoveNext()
Wend
If (rs_linkmethod.CursorType > 0) Then
rs_linkmethod.MoveFirst
Else
rs_linkmethod.Requery
End If
%>
</select> </td>
</tr>
<tr>
<td align="right"><font color="#FF0000">*</font>联系人：</td>
<td> <input name="LINK_MEN" type="text" id="LINK_MEN" value="<%= Trim((rs_detail.Fields.Item("LINK_NAME").Value)) %>" size="10" maxlength="10"></td>
</tr>
<tr>
<td align="right"><font color="#FF0000">*</font>公司名：</td>
<td> <input name="COMPANY" type="text" id="COMPANY" value="<%= Trim((rs_detail.Fields.Item("COMPANY").Value)) %>" size="50" maxlength="100"></td>
</tr>
<tr>
<td align="right"><font color="#FF0000">*</font>联系电话：</td>
<td> <input name="PHONE" type="text" id="PHONE" value="<%= Trim((rs_detail.Fields.Item("PHONE").Value)) %>" size="20" maxlength="36"></td>
</tr>
<tr>
<td align="right"><font color="#FF0000">*</font>电子邮件：</td>
<td> <input name="EMAIL" type="text" id="EMAIL" value="<%= Trim((rs_detail.Fields.Item("EMAIL").Value)) %>" size="36" maxlength="80"></td>
</tr>
<tr>
<td align="right">手机号：</td>
<td> <input name="MOBILE" type="text" id="MOBILE" value="<%= Trim((rs_detail.Fields.Item("MOBILE").Value)) %>" size="12" maxlength="12"></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><input type="checkbox" name="SAVE" value="1">
把这些信息保存为模板，并请填写下边的模板名称。</td>
</tr>
<tr>
<td> </td>
<td><input type="text" name="TEP_NAME">
模板名称</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2"> <input type="submit" name="Submit3" value="下一步>>>"></td>
</tr>
</table>
</form>
<p> </p></td>
</tr>
</table>
</body>
</html>
<%
rs_TEMP.Close()
Set rs_TEMP = Nothing
%>
<%
rs_linkmethod.Close()
Set rs_linkmethod = Nothing
%>
<%
rs_detail.Close()
Set rs_detail = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -