📄 newsmodify.asp
字号:
<!--#include file = include.asp-->
<!--#include file = rijcm.asp-->
<%
if request("action")="modi" then
'开始修改资料
newsid=Request.Form("newsid")
comname=request("comname")
bigclass=request("bigclass")
smallclass=request("smallclass")
myserver=replace(request("serverid")," ","")
tel=request("tel")
fax=request("fax")
lianxi=request("lianxi")
owner=request("owner")
webhost=request("webhost")
address=request("address")
date1=date()
connet=request("connet")
level=request("level")
resources=request("resources")
finder=request("finder")
other=request("other")
sql="update news set comname='"&comname&"',server='"&myserver&"',tel='"&tel&"',fax='"&fax&"',lianxi='"&lianxi&"',owner='"&owner&"',webhost='"&webhost&"',address='"&address&"',connet='"&connet&"',resources="&resources&",finder='"&finder&"',other='"&other&"',[level]='"&level&"' where newsid="&newsid&""
conn.execute sql
'返回页面
url="Newsview.asp?newsid="&newsid
response.write "<br><br><br><center><font size=-1>资料已经成功修改,本页2秒钟后返回.<br><br>谢谢您使用本系统</font></center>"
response.write "<meta http-equiv=refresh content=2;url=" & url & ">"
response.end
end if
%>
<%
newsid=Request("newsid")
set rs=server.createobject("adodb.recordset")
sql="select * from news where newsid=" & newsid
rs.open sql,conn,1,3
%>
<SCRIPT language=JavaScript src="js/addNews.js"></SCRIPT>
<body background="images/BLogo.gif">
<form name="form" method="POST" action="NewsModify.asp?action=modi" >
<table border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#4397c5" width="595">
<tr>
<td colspan=4><!--#include file = topMenu.htm--></td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" background="images/BLogo.gif" width="70">企业名称：</td>
<td height="11" bgcolor="#FFFFFF" background="images/BLogo.gif" width="277">
<%=rs("comname")%>
<input name='comname' size="30" value="<%=rs("comname")%>" type=hidden>
</td>
<td height="11" bgcolor="#FFFFFF" background="images/BLogo.gif" width="95">首次拜访代表：</td>
<td height="11" bgcolor="#FFFFFF" background="images/BLogo.gif" width="144">
<%=rs("finder")%> </td>
</tr>
<tr align="center">
<td height="2" bgcolor="#FFFFFF" background="images/BLogo.gif" colspan="4">
<table width="100%" border="0" cellspacing="2" cellpadding="0" bgcolor="#FFFFFF">
<tr bgcolor="#F6F6F6" valign="middle">
<td width="12%">业务项目：<%myserver=rs("server")%><br>
</td>
<td width="86%" align="left" colspan="5">  <%
set rs1 = server.createobject("adodb.recordset")
sql = "select * from server order by serverid "
rs1.open sql,conn,1,1
do while not rs1.eof
%>
<input type="Checkbox" value="<%=rs1("serverid")%>" name="serverid" <%
iserver=Split(myserver,",")
for i = 0 to ubound(iserver)
if clng(iserver(i))=clng(rs1("serverid")) then
Response.Write "checked"
%>
<%end if
next
%> >
<%=rs1("servername")%>  <%
rs1.movenext
loop%></td>
</tr>
<tr bgcolor="#F6F6F6" valign="middle">
<td width="12%">联系人： </td>
<td width="30%" align="center">
<input type="text" name="lianxi" size="20" value="<%=rs("lianxi")%>">
</td>
<td>法人： </td>
<td width="42%" colspan="3">
<input type="text" name="owner" size="20" value="<%=rs("owner")%>">
</td>
</tr>
<tr bgcolor="#F6F6F6" valign="middle">
<td width="12%">网址： </td>
<td width="30%" align="center">
<input type="text" name="webhost" size="20" value="<%=rs("webhost")%>">
</td>
<td>地址： </td>
<td width="42%" colspan="3">
<input type="text" name="address" size="20" value="<%=rs("address")%>">
</td>
</tr>
<tr bgcolor="#F6F6F6" valign="middle">
<td width="12%">联系电话： </td>
<td width="30%" align="center">
<input type="text" name="tel" size="20" value="<%=rs("tel")%>">
</td>
<td>传真号码：</td>
<td width="42%" colspan="3">
<input type="text" name="fax" size="20" value="<%=rs("fax")%>">
</td>
</tr>
<tr bgcolor="#F6F6F6" valign="middle">
<td width="12%">公司等级： </td>
<td width="30%">
<select name="connet">
<option value="<%=rs("connet")%>" selected><%=rs("connet")%></option>
<option value="重要客户">重要客户</option>
<option value="一般客户">一般客户</option>
</select>
</td>
<td>业务状态：</td>
<td width="11%">
<select name="level">
<option value="<%=rs("level")%>"><%=rs("level")%></option>
<option value="未签单">未签单</option>
<option value="已签单">已签单</option>
<option value="已成交">已成交</option>
</select>
</td>
<td width="12%"> 商务代表：</td>
<td width="13%">
<select name="finder">
<option value="">商务代表</option>
<%
set rs1 = server.createobject("adodb.recordset")
sql = "select * from UserManage "
rs1.open sql,conn,1,1
do while not rs1.eof
%>
<option value="<%=rs1("UserName")%>" <%if rs1("UserName")=session("username") then %>selected<%end if%>><%=rs1("UserName")%></option>
<%
rs1.movenext
loop%>
</select>
</td>
</tr>
<tr bgcolor="#F6F6F6" valign="middle">
<td width="12%">信息共享： </td>
<td width="30%">
<select name="Resources">
<option value="<%=rs("Resources")%>">维持目前状态</option>
<option value="1">共享此信息</option>
<option value="0">保密此信息</option>
</select>
</td>
<td>录入日期：</td>
<td colspan="3"> <%=formatdatetime(rs("date"),1)%>
<input type="hidden" name="Date" size="20" value="<%=formatdatetime(rs("date"),1)%>">
</td>
</tr>
<tr bgcolor="#F6F6F6" valign="middle">
<td width="12%">备注：</td>
<td colspan="5" align="left">
<input type="text" name="other" size="50" value="<%=rs("other")%>">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="57" bgcolor="#FFFFFF" background="images/BLogo.gif" colspan="4" align="center">
<input type="Hidden" name="Smallclass" size="20" value="<%=rs("smallclass")%>">
<input type="Hidden" name="bigclass" size="20" value="<%=rs("bigclass")%>">
<input type="Hidden" name=SmallClass value=<%=request.querystring("SmallClass")%>>
<input type="Hidden" name=BigClass value=<%=request.querystring("BigClass")%>>
<input type="hidden" name="newsid" value="<%=rs("NewsID")%>">
<input type="submit" value=" 修 改" name="Submit" >
<input type="reset" value=" 还 原 " onclick="return resetText()" >
</td>
</tr>
</table>
</form>
<% rs.close
set rs=nothing
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -