📄 companyadd.asp
字号:
<!--#include file="check_login.asp"-->
<!--#include file="conn.asp"-->
<%
Addyes=trim(request.QueryString("ADDYES"))
CompanyID=trim(request.QueryString("CompanyID"))
if Addyes="OKYES" then
Lsort=trim(request.Form("Lsort"))
GroupID=trim(request.Form("GroupID"))
Exclusive=trim(request.Form("Exclusive"))
'=========================
content1 = ""
For i = 1 To Request.Form("content1").Count
content1 = content1 & Request.Form("content1")(i)
Next
'=========================
set rsw=Server.CreateObject("Adodb.Recordset")
sqlw="Select * From Company where id="&CompanyID&""
rsw.open sqlw,conn,1,3
rsw("ComName")=Lsort
rsw("GroupID")=GroupID
rsw("Exclusive")= Exclusive
rsw("Content")=content1
rsw.update
rsw.close
set rsw=nothing
end if
'====================
set rs = server.createobject("adodb.recordset")
rs.source = "select * from company where id="&CompanyID&""
rs.open rs.source,conn,1,1
CompanyID=trim(rs("id"))
ComName=trim(rs("ComName"))
GroupID=trim(rs("GroupID"))
if trim(rs("Exclusive"))="<" then
Exclusive=true
else
Exclusive=false
end if
sContent =trim(rs("content"))
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="text.css" rel="stylesheet" type="text/css">
</head>
<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="CompanyAdd.asp?ADDYES=OKYES&CompanyID=<%=CompanyID%>">
<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="11%" bgcolor="#F2F2F2" style='BORDER-BOTTOM:#CCCCCC 1px solid;'> 内容所在栏目：</td>
<td width="87%" 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>
<tr bgcolor="#F2F2F2" >
<td bgcolor="#F2F2F2" style='BORDER-BOTTOM:#CCCCCC 1px solid;'> 内容查看权限：</td>
<td style='BORDER-BOTTOM:#CCCCCC 1px solid;'>
<select name="GroupID" class="myput" id="GroupID">
<%
set rsUG = server.createobject("adodb.recordset")
rsUG.source = "select * from Nweb_UGroup order by GroupLevel "
rsUG.open rsUG.source,conn,1,1
if rsUG.recordcount=0 then
response.write("没有栏目")
end if
while not rsUG.eof
%>
<option value="<%=rsUG("GroupID")%>" style="background-color:#cccccc;" <%if GroupID=rsUG("GroupID") then response.write " selected" %> >┠ <%=rsUG("GroupName")%></option>
<%
rsUG.movenext
wend
rsUG.close
set rsUG=nothing
%>
</select>
<input type="radio" <%if Exclusive then response.write "checked" %> name="Exclusive" value="<">
隶属
<input type="radio" <%if Not(Exclusive) then response.write "checked" %> name="Exclusive" value="=">
专属 （隶属：权限值≤可查看，专属：权限值＝可查看） </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td height="20" bgcolor="#CECFCE" style='BORDER-BOTTOM:#666666 1px solid '><strong>详细内容：</strong><span class="BLUE">*</span>利用本编辑工具，可以编辑图文并茂的新闻内容图文，也可上传多幅图片和制作表格等。</td>
</tr>
<tr>
<td valign="top" bgcolor="#F1F1F1"><INPUT type="hidden" name="content1" value="<%=Server.HtmlEncode(sContent)%>">
<IFRAME ID="NwebEditor1" src="../WebEditor/eWebEditor.asp?id=content1" frameborder="0" scrolling="no" width="560" height="350"></IFRAME></td>
</tr>
<tr>
<td height="40" bgcolor="#CECFCE" style='BORDER-BOTTOM:#666666 1px solid '><table width="560" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="right"><input type="submit" name="Submit" value=" 提 交 "></td>
</tr>
</table></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 + -