⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 newsmartsales.asp

📁 1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复! 自己写吧~~~:) 4 又 是一点缺陷
💻 ASP
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%

if request("id")<>"" then
	dim connq
	dim rsq
	set connq=server.CreateObject("adodb.connection")
	set rsq=server.CreateObject("adodb.recordset")
	connq.Open connstring
	rsq.Open "select * from smartsales where id="&request("id"),connq,2,3,1
	strname=rsq("name")
	strfunname=rsq("funname")
	strsmartsalestype=rsq("smartsalestype")
	strdescription=rsq("description")
	strstartdate=rsq("startdate")
	strcloseddate=rsq("closeddate")		
	strclosed=rsq("closed")
	rsq.Close
	set rsq=nothing
	connq.Close
	set connq=nothing
else
	strsmartsalestype=request("funtype")
end if

if request("name")<>"" then
	dim conn
	dim rs
	set conn=server.CreateObject("adodb.connection")
	set rs=server.CreateObject("adodb.recordset")
	conn.Open connstring
	if request("id")="" then
		rs.Open "select * from smartsales",conn,2,3,1
		rs.AddNew
	rs("createddate")=now()			
	else
		rs.Open "select * from smartsales where id="&request("id"),conn,2,3,1
	end if

	rs("smartsalestype")=request("smartsalestype")	
	rs("name")=request("name")
	rs("funname")=request("funname")	
	rs("description")=request("description")
	rs("startdate")=request("startdate")
	rs("closeddate")=request("closeddate")
	if request("closed")=1 then
		rs("closed")=1
	else
		rs("closed")=0
	end if
	rs.Update 
	rs.Close 
	set rs=nothing
	conn.Close 
	set conn=nothing
%>
<script language=javascript>
	window.opener.location.reload();
	window.close();
</script>
<%
end if
%>

<HTML><HEAD><TITLE><%if request("id")="" then%>新建<%else%><%if request("type")<>"detail" then%>编辑<%else%>查看<%end if%><%end if%><%=strsmartsalestype%></TITLE>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
 <form name=form1  method="post"  id=form1>
 <script language=javascript src="../tools/calendar.js"></script>
<div id="overDiv" style="position:absolute; z-index:1000;"></div>
  <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
   <tr> 
    <td height="25"><strong><font size="2" class=title><b><%if request("id")="" then%>新建<%else%><%if request("type")<>"detail" then%>编辑<%else%>查看<%end if%><%end if%><%=strsmartsalestype%></b></font></strong></td>
      <td>&nbsp;</td>
    </tr>
    <tr > 
      <td height="16" colspan="2" background="../images/title.gif">&nbsp;</td>
    </tr>
    <tr>
      <td height=4></td>
    </tr>
	<tr><td>
	<%if request("type")<>"detail" then%>
	<div align="center" style="cursor:hand"><a onclick="form1.submit();"><img src="../images/button_save.gif"></a>&nbsp;&nbsp;&nbsp;&nbsp;<a onclick="window.close();"><img src="../images/button_cancel.gif"></a> 
    </div>
	<%end if%></td>
    </tr>
 </table>
  <table width="100%" align="center" cellspacing="1" bgcolor="#FFFFFF">
    <tr> 
      <td width="40%" bgcolor="DEDFDE" > <div align="center">模块</div></td>
      <td width="60%" bgcolor="EFEFEF"> 
        <%if request("type")="detail" then%>
        <%=strsmartsalestype%> 
        <%else%>
        <input type=text name=smartsalestype value="<%=strsmartsalestype%>" <%if request("id")<>"" then Response.Write "readonly"%> ></td>
      <%end if%>
    </tr>
    <tr> 
      <td width="40%" bgcolor="DEDFDE" > <div align="center">菜单</div></td>
      <td width="60%" bgcolor="EFEFEF"> 
        <%if request("type")="detail" then%>
        <%=strname%> 
        <%else%>
        <input type=text size="20" name=name value="<%=strname%>"></td>
      <%end if%>
    </tr>
    <tr> 
      <td bgcolor="DEDFDE" ><div align="center">功能</div></td>
      <td width="60%" bgcolor="EFEFEF"> 
        <%if request("type")="detail" then%>
        <%=strfunname%> 
        <%else%>
        <input type=text size="20" name=funname value="<%=strfunname%>"></td>
      <%end if%></tr>
    <tr> 
      <td width="40%" bgcolor="DEDFDE" > <div align="center">设计概要</div></td>
      <td width="60%" bgcolor="EFEFEF"> 
        <%if request("type")<>"detail" then%>
        <textarea name="description" cols="60" rows="8"><%=strdescription%></textarea></td>
      <%else%>
      <textarea name="description" cols="60" rows="12" readonly><%=strdescription%></textarea></td>
      <%end if%>
    </tr>
    <tr> 
      <td width="40%" bgcolor="DEDFDE" > <div align="center">开始时间</div></td>
      <td width="60%" bgcolor="EFEFEF"> 
        <%if request("type")="detail" then%>
        <%=strstartdate%> 
        <%else%>
        <input type=text size="10" name=startdate value="<%=strstartdate%>"> <a href="javascript:show_calendar('form1.startdate');" onMouseOver="window.status='Date Picker'; overlib('选择日期'); return true;" onMouseOut="window.status=''; nd(); return true;"><img src="../images/show-calendar.gif" border=0></a></td>
      <%end if%>
    </tr>
    <tr> 
      <td width="40%" bgcolor="DEDFDE" > <div align="center">完成时间</div></td>
      <td width="60%" bgcolor="EFEFEF"> 
        <%if request("type")="detail" then%>
        <%=strcloseddate%> 
        <%else%>
        <input type=text size="10" name=closeddate value="<%=strcloseddate%>"> 
        <a href="javascript:show_calendar('form1.closeddate');" onMouseOver="window.status='Date Picker'; overlib('选择日期'); return true;" onMouseOut="window.status=''; nd(); return true;"><img src="../images/show-calendar.gif" border=0></a></td>
      <%end if%>
    </tr>
    <tr> 
      <td width="40%" bgcolor="DEDFDE" > <div align="center">完成</div></td>
      <td width="60%" bgcolor="EFEFEF"> 
        <%if request("type")="detail" then%>
        <input type=checkbox name=closed value=1 <%if strclosed then Response.Write "checked"%> disabled></td>
      <%else%>
      <input type=checkbox name=closed value=1 <%if strclosed then Response.Write "checked"%>></td>
      <%end if%>
    </tr>
  </table>
</form>

⌨️ 快捷键说明

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