?? addsoft_save.asp
字號:
<!--#INCLUDE FILE="data.asp" -->
<!--#include file="html.asp"-->
<%
Set mrs= Server.CreateObject("ADODB.Recordset")
strSql1="select * from user where username='"&Session("Uname")&"'"
mrs.open strSql1,Conn,3,3
%>
<%
set rs=server.createobject("ADODB.recordset")
rs.Open "SELECT * FROM soft Where id is null",conn,1,3
rs.addnew
nowtime=now()
sj=cstr(year(nowtime))+right("0"+cstr(month(nowtime)),2)+right("0"+cstr(day(nowtime)),2)
sk=cstr(year(nowtime))+"-"+right("0"+cstr(month(nowtime)),2)+"-"+right("0"+cstr(day(nowtime)),2)
jz=mid(rs("time2"),3,8)
rs("name") =htmlencode2(request("softname"))
rs("content") =htmlencode2(request("content"))
rs("url") =request("url")
rs("size")=request("size")
rs("remindtime")=request("year2")&request("month2")&request("day2")
rs("time2")=request("year2")&"-"&request("month2")&"-"&request("day2")
rs("time3")=sj
rs("time")=sk
if request("tx")="true" then
rs("tx1") =request("tx")
rs("timetx") =request("tixi")
ss=Dateadd("d",rs("timetx"),rs("time"))
rs("daoshitime1")=ss
rs("daoshitime2")=cstr(year(rs("daoshitime1")))+right("0"+cstr(month(rs("daoshitime1"))),2)+right("0"+cstr(day(rs("daoshitime1"))),2)
end if
if request("txz")="true" then
rs("tx2") =request("txz")
rs("timetx") =request("tixiz")
ss=Dateadd("d",rs("timetx"),rs("time"))
rs("daoshitime1")=ss
rs("daoshitime2")=cstr(year(rs("daoshitime1")))+right("0"+cstr(month(rs("daoshitime1"))),2)+right("0"+cstr(day(rs("daoshitime1"))),2)
end if
if request("txs")="true" then
rs("daoshitime")=request("year3")&request("month3")&request("day3")
rs("tx")=request("txs")
end if
rs("dx")=request("dx")
jz=mid(rs("time2"),3,8)
rs("jz")=jz
rs("userid")=session("Uid")
rs("best")=request("best")
rs("zz")=request("zz")
rs("zhipai")=mrs("name")
if rs("zz")=true then
rs("time2")="無終止"
rs("remindtime")="99999999"
end if
rs.Update
rs.close
Set rs=nothing
mrs.Update
mrs.close
Set mrs=nothing
Conn.Close
Set Conn=nothing
%>
<LINK href="oa.css" rel=stylesheet>
<script language=javascript>
opener.location=opener.location
</script>
<BODY>
<TABLE border=1 bordercolorlight='000000' bordercolordark=#ffffff cellspacing=0 cellpadding=0 align=center>
<TR>
<TD>文件已經成功加上，是否繼續添加……<BR>
<P><P><A HREF="addsoft.asp">繼續添加</A> <A HREF="javascript:window.close()">關閉窗口</A></TD>
</TR>
</table>
<%
set file=nothing
set upload=nothing ''刪除此對象
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -