📄 compregsave.asp
字号:
<!--#include file="conndb.asp"-->
<html>
<head>
<title>保存企业注册信息</title>
</head>
<body>
<%
Function changechr(str)
changechr = Replace(str," "," ")
changechr = Replace(changechr,Chr(13),"<br>")
changechr = Replace(changechr,"'","?")
End Function
Dim StrAction
'得到动作参数
StrAction = Request.QueryString("action")
'取得基本信息
Set rs = Server.CreateObject("ADODB.RECORDSET")
Set rs1 = Server.CreateObject("ADODB.RECORDSET")
If StrAction="New" Then
'判断是否存在此用户名
Set rs = Conn.Execute("Select * From Company Where CName='"&Request("username")&"'")
If rs.EOF Then
sql="Select * from Company"
rs1.Open sql,Conn,1,3
rs1.AddNew
rs1("CName")= Request("username")
rs1("Pwd") = Request("pwd")
rs1("Company") = Request("company")
rs1("Contactor") = Request("contactor")
rs1("Type") = Request("type")
rs1("FormTime") = Request("formdate")
If Request("emplnum") = "" Then
emplnum = 0
Else
emplnum = CInt(Request("emplnum"))
End If
rs1("EmplNum") = emplnum
rs1("Location") = Request("location")
rs1("Telephone") = Request("telephone")
rs1("Fax") = Request("fax")
rs1("Email") = Request("email")
rs1("Address") = Request("address")
rs1("ZipCode") = Request("zipcode")
rs1("Http") = Request("http")
rs1("Introduce") = changechr(introduce)
rs1("PostDate") = Date()
rs1.Update
Response.Write "<h3>企业注册信息成功保存</h3>"
Else
Response.Write "<Script language='JavaScript'>alert('已经存在此用户名！');history.go(-1);</script>"
End If
End If
Set rs = Nothing
%>
</body>
<script language="javascript">
// 刷新父级窗口，延迟此关闭
opener.location.reload();
setTimeout("window.close()",600);
</script>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -