📄 addcompany.asp
字号:
<!--#include file="check_login.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="script/js2.asp"-->
<%
Addyes=trim(request.QueryString("ADDYES"))
if Addyes="OKYES" then
Lsort=trim(request.Form("Lsort"))
ComID=trim(request.QueryString("ComID"))
'=========================
content1 = ""
For i = 1 To Request.Form("content1").Count
content1 = content1 & Request.Form("content1")(i)
Next
'===============================
set rsw=Server.CreateObject("Adodb.Recordset")
sqlw="Select id,ComName,Content From Company where id="&ComID&""
rsw.open sqlw,conn,1,3
'rsw.addnew
rsw("ComName")=Lsort
rsw("Content")=content1
rsw.update
rsw.close
set rsw=nothing
end if
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="text.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #F2F2F2;
}
.style1 {color: #996600}
-->
</style>
</head>
<%
Addyes=trim(request.QueryString("ADDYES"))
if Addyes="OKYES" then
CompanyID=ComID
else
CompanyID=trim(request.QueryString("CompanyID"))
end if
'=====================
set rs = server.createobject("adodb.recordset")
rs.source = "select id,ComName,Content from company where id="&CompanyID&""
rs.open rs.source,conn,1,1
ComID=trim(rs("id"))
ComName=trim(rs("ComName"))
sContent =trim(rs("content"))
%>
<body topmargin="0" leftmargin="0" rightmargin="0" <%=kkk%>>
<!--#include file="top/Ltop03.asp"-->
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" style='BORDER-BOTTOM:#666666 1px solid; BORDER-LEFT:#CECFCE 1px solid; BORDER-RIGHT:#CECFCE 1px solid; BORDER-TOP: #666666 0px solid;'>
<tr>
<form name="form1" method="post" action="Addcompany.asp?ADDYES=OKYES&ComID=<%=ComID%>">
<td valign="top">
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td height="26" bgcolor="#F2F2F2" ><p><font color="#0000FF"><strong>注意 </strong>：删除目录同时将删除该目录下所有产品并同时删除该目录下的下属分类和其中产品！</font></p></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" >
<tr>
<td colspan="2" bgcolor="#CCCCCC" style='BORDER-BOTTOM:#666666 1px solid '><strong> 企业信息内容添加：</strong> <a href="companyall.asp">企业管理</a></td>
</tr>
<tr bgcolor="#F2F2F2" >
<td width="17%" bgcolor="#F2F2F2" style='BORDER-BOTTOM:#CCCCCC 1px solid;'> 内容所在栏目：</td>
<td width="83%" style='BORDER-BOTTOM:#CCCCCC 1px solid;'>
<select name="Lsort" class="myput" id="Lsort">
<option value="<%=ComName%>" style="background-color:#a4cee4"><%=ComName%></option>
</select>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td bgcolor="#CECFCE" style='BORDER-BOTTOM:#666666 1px solid '><strong>内容：</strong><font color="#0000FF">利用下面的编辑工具，可以编辑图文并茂的内容！</font></td>
</tr>
<tr>
<td valign="top" bgcolor="#F1F1F1"><INPUT type="hidden" name="content1" value="<%=Server.HtmlEncode(sContent)%>">
<IFRAME ID="eWebEditor1" src="../WebEditor/ewebeditor.asp?id=content1" frameborder="0" scrolling="no" width="560" height="350"></IFRAME></td>
</tr>
<tr>
<td bgcolor="#CECFCE" style='BORDER-BOTTOM:#666666 1px solid '>
<input type="submit" name="Submit" value="提交"> </td>
</tr>
</table></td>
</form>
</tr>
</table><br>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -