lx.asp

来自「一个诚信信息港门户网 功能: 系统设置 　企业会员 　个人」· ASP 代码 · 共 87 行

ASP
87 行
字号 
<%dbdns="../../"%>
<!--#include file="../../inc/conn.asp"-->
<!--#include file="../cook.asp"-->
<%if fla3<>1 then
response.write "<script>alert('操作权限出错，您没有权限操作些功能');history.go(-1);</Script>"
Response.End 
end if%>
<%
if request("action")="save" then
'--------------------取数据-----------------------------
key1=request("key1")
if key1="" then key1=0
key2=request("key2")
if key2="" then key2=1
key3=request("key3")
if key3="" then key3=0
key4=request("key4")
if key4="" then key4=0
be=request("be")
bb=request("bb")
'--------------------存数据-----------------------------
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from SMT_sca where SMT_id="&request("id")
rs.open sql,conn,1,3
rs("SMT_key1")=key1
rs("SMT_key2")=key2
rs("SMT_key3")=key3
rs("SMT_lastdate")=bb
if key4=1 then  '推荐
rs("SMT_begindate")=now()
else
rs("SMT_begindate")=be
end if
rs.update
rs.close
set rs=nothing
response.write"<script>parent.main.document.location.reload();</script>"
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<%=citycss%>
<body style="margin:5">
<%set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_sca where SMT_id="&request("id")
rs.open sql,conn,1,1
key1=rs("SMT_key1")
key2=rs("SMT_key2")
key3=rs("SMT_key3")
begindate=cdate(year(rs("SMT_begindate"))&"-"&month(rs("SMT_begindate"))&"-"&day(rs("SMT_begindate")))
lastdate=cdate(year(rs("SMT_lastdate"))&"-"&month(rs("SMT_lastdate"))&"-"&day(rs("SMT_lastdate")))
ztian=lastdate-begindate%>
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>
<!--================-->
<table width="500" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
<form name="form1" method="post" action="lx.asp">
<input name="id" type="hidden" value="<%=request("id")%>">
<input name="action" type="hidden" value="save">
<input name="begindate" type="hidden" value="<%=begindate%>">
<tr bgcolor=#efefef><td height=25 colspan="2">&nbsp;商贸机会管理 - <strong><%=rs("SMT_scatitle")%></strong></td></tr>
<tr>
    <td height=25 width=50%>　　<input name="key1" type="checkbox" style="border:0" value=1<%if key1=1 then%> checked<%end if%>> 发布审核(点击审核通过)</td>
    <td width=50%>　　<input name="key2" type="checkbox" style="border:0" value=0<%if key2=0 then%> checked<%end if%>> 控制开关(选择则关闭)</td>
</tr>
<tr>
    <td height=25>　　<input name="key3" type="checkbox" style="border:0" value=1<%if key3=1 then%> checked<%end if%>> 推荐(点击推荐)</td>
    <td>　　<input name="key4" type="checkbox" style="border:0" value=1> 重新计算时间(重设商机发布时间)</td>
</tr>
<tr>
    <td height=25 colspan=2 align=center>该商机发布时间：
      <input name="be" type="text" id="be" value="<%=begindate%>" size=10></td>
</tr>
<tr>
  <td height=25 colspan=2 align=center>该商机到期时间：
    <input name="bb" type="text" id="be" value="<%=lastdate%>" size=10></td>
</tr>
<tr align=center><td height=25 colspan="2"><input type="submit" name="Submit" value=" 提 交 "></td></tr>
</form>
</table>
<!--================-->	
	</td>
  </tr>
</table>
<%rs.close
set rs=nothing%>

lx.asp - 源码说明

本页面展示了「一个诚信信息港门户网 功能: 系统设置 　企业会员 　个人会员 　商贸机会 　产品管理 　企业新闻 　行业新闻 　招聘信息 　展会管理 　模版管理 」中的 lx.asp 源码文件，采用 ASP 编程语言编写，共 87 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与新闻相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?