📄 addnew.asp
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/String.asp" -->
<%
if session("AccountID")="" then
%>
<script language=javascript>
alert("因登录时间过长，会话失效，请退出重新登陆！")
</script>
<%
Response.End
end if
If Request.Form.Count > 0 Then
Dim C,conn,StrSQL,ObjRS
Dim IntID
If Trim(Request("_Gtype"))="" then
Response.Write "<script language=javascript>alert('请填写行业名称');history.back();</script>"
Response.End
End if
Set conn=Server.CreateObject("ADODB.Connection")
OpenDBCrm( conn )
StrSQL="select * from T_CRM_Guest_type Where Gtype='"&Trim(Request("_Gtype"))&"'"
Set ObjRS=conn.Execute(StrSQL)
If Not(ObjRS.Eof and ObjRS.Bof) Then
ObjRS.close
Set ObjRS=Nothing
conn.close
Set conn=Nothing
Response.Write "<script language=javascript>alert('已添加过该行业名称，请重新填写');history.back();</script>"
Response.End
End if
conn.Execute("insert into T_CRM_Guest_type (Gtype,creater,CreateTime) values ('"&FixSQL(Request("_Gtype"))&"','"&session("AccountID")&"','"&date()&"')")
conn.Close
Set conn = Nothing
Response.Redirect "List.asp"
End If
Sub Main
%>
<script language=javascript>
function SelectRoleIDs(IDs)
{
window.open("SelectGuest.asp?IDs="+IDs,"RoleWin","width=600,height=420,scrollbars=yes")
}
function ChangeRole(IDs,Names)
{
document.forms[0]._Guest_id.value = IDs
document.forms[0].Guest_Name.value = Names
window.focus()
}
</script>
<HTML><HEAD>
<form action="" method="post" onsubmit="return(CheckForm(this))">
<input type=hidden name=_AccountID value=<%=Session("AccountID")%>>
<table class=Ltable cellspacing=1 cellpadding=3>
<tr class=LHtr align="middle">
<td width="15%">新增客户行业</td>
<td width="85%"> </td>
</tr>
<tr class=Ltr>
<td>行业名称</td>
<td><input type="text" class=Input Check=1 Show="行业名称" name="_Gtype" value=""></td>
</tr>
</table>
<table cellspacing=1 cellpadding=3>
<tr>
<td>
<input type="submit" name="Submit" class=Button value="提 交"><input type="button" class=Button value="取 消" onclick="doList()" id=button1 name=button1></td>
<td></td>
</tr>
</table>
</FORM>
<%
End Sub
%>
<!-- #include virtual="Templet/Templet.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -