📄 input_corpinfo3.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="cs_conn.inc.asp"-->
<%
if not session("userClass")>=1 then
response.redirect "login.asp"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
td {
font-size: 12px;
color: #000000;
}
-->
</style>
<style type="text/css">
<!--
.tdbgw {
font-size: 14px;
color: #000000;
background-color: #FFFFFF;
}
-->
</style>
<link href="css/allsty.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" style="border-collapse: collapse">
<tr>
<td width="100%">
<%
if Request("corpName")="" then
%>
<script language=Javascript>
<!--
alert("企业名称不能为空");
window.history.go(-1);
//-->
</script>
<%
response.End
end if
sql="select id from corp_info where corpName='"&Request("corpName")&"'"
set rs=conn.execute (sql)
if not rs.eof then
%>
<script language=Javascript>
<!--
alert("企业名称已存在，请重新填写企业名称");
window.history.go(-1);
//-->
</script>
<%
response.End
end if
%>
<%
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set InsertCursor = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT top 1 * FROM corp_info order by id desc"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = conn
InsertCursor.Open cmdTemp, , 1, 3
InsertCursor.addnew
InsertCursor("corpName") =Request("corpName")
InsertCursor("corp_linkman") =Request("corp_linkman")
InsertCursor("corp_province") =Request("corp_province")
InsertCursor("corp_city") =Request("corp_city")
InsertCursor("corp_calling") =Request("corp_calling")
InsertCursor("corp_address") =Request("corp_address")
InsertCursor("corp_telcom") =Request("corp_telcom")
InsertCursor("corp_fax") =Request("corp_fax")
InsertCursor("linkman_mobile") =Request("linkman_mobile")
InsertCursor("post_code") =Request("post_code")
InsertCursor("website_add") =Request("website_add")
InsertCursor("email_add") =Request("email_add")
InsertCursor("corp_quality") =Request("corp_quality")
InsertCursor("corp_trade") =Request("corp_trade")
InsertCursor("corp_introduce") =Request("corp_introduce")
InsertCursor("corp_remark") =Request("corp_remark")
InsertCursor("username") =Request("username")
InsertCursor("DateAndTime") =Request("DateAndTime")
InsertCursor.Update
InsertCursor.close
conn.close
set InsertCursor=nothing
set conn=nothing
%>
<table width="81%" border="0" align="center" cellpadding="0" cellspacing="1" bordercolordark=#ffffff bgcolor="#999999">
<tbody>
<tr>
<td height="26" colspan=2 class="tdbgw">
<p><b> 您输入的企业基本信息为:</b></p></td>
</tr>
<tr>
<td align="right" nowrap class="tdbgw">企业名称：</td>
<td class="tdbgw"><b><%=Request("corpName")%></b></td>
</tr>
<tr>
<td align="right" nowrap class="tdbgw">企业地址：</td>
<td class="tdbgw"><b><%=Request("corp_address")%></b></td>
</tr>
<tr>
<td align="right" nowrap class="tdbgw">邮政编码：</td>
<td class="tdbgw"><b><%=Request("post_code")%></b></td>
</tr>
<tr>
<td align="right" nowrap class="tdbgw">联系人：</td>
<td class="tdbgw"><b><%=Request("corp_linkman")%></b></td>
</tr>
<tr>
<td height="19" align="right" nowrap class="tdbgw">联系电话：</td>
<td class="tdbgw"><b><%=Request("corp_telcom")%></b></td>
</tr>
<tr>
<td align="right" nowrap class="tdbgw">企业传真<font color="#000000">：</font></td>
<td class="tdbgw"><b><%=Request("corp_fax")%></b></td>
</tr>
<tr>
<td align="right" nowrap class="tdbgw">联系人手机<font color="#000000">：</font></td>
<td class="tdbgw"><b><%=Request("linkman_mobile")%></b></td>
</tr>
<tr>
<td align="right" nowrap class="tdbgw"><font color="#000000">企业地区：</font></td>
<td class="tdbgw"><font color=#000000> <b><%=Request("corp_province")%></b> <b><%=Request("corp_city")%></b> (市/县）</font></td>
</tr>
<tr>
<td align="right" nowrap class="tdbgw">行业分类：</td>
<td class="tdbgw"><b><%=Request("corp_calling")%></b>类</td>
</tr>
<tr>
<td align="right" nowrap class="tdbgw">企业规模<b>：</b></td>
<td class="tdbgw"><b><%=Request("corp_quality")%></b></td>
</tr>
<tr>
<td align="right" nowrap class="tdbgw">是否外贸企业<b>：</b></td>
<td class="tdbgw"><b><%=Request("corp_trade")%></b></td>
</tr>
<tr>
<td align="right" nowrap class="tdbgw">电子邮件：</td>
<td class="tdbgw"><b><%=Request("email_add")%></b></td>
</tr>
<tr>
<td align="right" nowrap class="tdbgw">网站地址：</td>
<td class="tdbgw"><b><%=Request("website_add")%></b></td>
</tr>
<tr>
<td align="right" nowrap class="tdbgw">企业介绍：</td>
<td class="tdbgw"><b><%=Request("corp_introduce")%></b></td>
</tr>
<tr>
<td width=106 align="right" nowrap class="tdbgw">备注信息：</td>
<td width="456" class="tdbgw"> <b><%=Request("corp_remark")%></b></td>
</tr>
<tr>
<td colspan="2" align="right" nowrap> <div align="center">
<p class="tdbgw"> </p>
</div></td>
</tr>
<tr>
<td height="26" colspan="2" align="right" nowrap> <div align="center" class="tdbgw">
<p>
<input name="B4" type="button" class="fmsty1" onClick="window.location.href='input_corpinfo.asp';" value="继续输入">
<input name="Submits" type="button" class="fmsty1" onClick="window.location.href='main.asp';" value="返回首页">
</p>
</div></td>
</tr>
</tbody>
</table>
<br>
<div align="center"></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><a href="http://www.crescent.net.cn/">新月网络工作室</a> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -