📄 edit.asp
字号:
<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=session("oabusyname")
oabusyusername=session("oabusyusername")
oabusyuserdept=session("oabusyuserdept")
oabusyuserlevel=session("oabusyuserlevel")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='../../default.asp';")
response.write("</script>")
response.end
end if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from userinf where username='" & oabusyusername&"'"
rs.open sql,con,1
allow_gwlz_manage=rs("allow_gwlz_manage")
con.close
set con=nothing
set rs=nothing
if allow_gwlz_manage<>"yes" then
response.write("<script language=""javascript"">")
response.write("alert(""对不起，你没有进行此项操作的权限！"");")
response.write("</script>")
response.end
end if
%>
<%
set con=Server.CreateObject("ADODB.Connection")
ConnStr="DBQ="+server.mappath("../../netcstdb/netcstoa.asa")+";DRIVER={Microsoft Access Driver (*.mdb)};"
' SET rs=Server.CreateObject("ADODB.RecordSet")
con.Open ConnStr
set Session("conn")=con
Session("iPageSize")=10
'SET rs=Server.CreateObject("ADODB.RecordSet")
%>
<html>
<head>
<title>档案管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- #include file="../inc/css.asp" -->
<style>
.css0{border:none;}
</style>
<script language="JavaScript">
function getit()
{
if(document.submitinput.fYear.value.length=="")
{
alert("对不起，请选择档案的年份！");
document.submitinput.fYear.focus();
return false;
}
if(document.submitinput.fMonth.value.length=="")
{
alert("对不起，请选择档案的月份！");
document.submitinput.fMonth.focus();
return false;
}
if(document.submitinput.fDay.value.length=="")
{
alert("对不起，请选择档案的日期！");
document.submitinput.fDay.focus();
return false;
}
document.submitinput.doctime.value ="";
document.submitinput.doctime.value +=document.submitinput.fYear.value + "-"
document.submitinput.doctime.value +=document.submitinput.fMonth.value + "-"
document.submitinput.doctime.value +=document.submitinput.fDay.value + " "
rphtml('vnumber','vtitle','saveurl','former','deal','vauthor','saveyear');
if (MM_validateForm('vnumber','','RIN','vtitle','','R','saveurl','','R','former','','RIN','deal','','R','vauthor','','R','saveyear','','R','vtext','','R'))
document.submitinput.submit()
}
//数据传递
function add_users(to)
{
var return_value;
return_value=showModalDialog("../public/userlist.asp?muilt=no&to=" + to,"","dialogWidth:25;dialogHeight:16;dialogTop:250;dialogLeft:260;status:no;scrollbars:no;help:no");
if((typeof(return_value)=="undefined") ||(return_value=="*") || (return_value==""))
return;
else
var str1="";
var str2="";
tmpstr=return_value.split("*");
str1=tmpstr[0];
str2=tmpstr[1];
document.submitinput.all(str2).value=str1 ;
}
</script>
<% '定义变量
dim image,title,opFlag,Number,vlist,fYear,fMonth,fDay
dim acontent,vtm
on error resume next
Server.ScriptTimeOut =4
Number=cint(request("Number"))
opFlag=request("opFlag")
Set rs = Server.CreateObject("ADODB.Recordset")
'判断客户端操作
if opFlag="cmdEdit" then
rs.open Session("SQL"),Session("conn"),1,1
rs.move Number
'读取数据库的存储时间
temptime= "" & rs("doctime")
fYear = mid(temptime,1,4)
fMonth = mid(temptime,6,2)
fDay = mid(temptime,9,2)
else
if opFlag="cmdAddNew" then
'读取档案类型列表信息
rs.open "select DISTINCT vstyle from document",Session("conn"),1,1
vlist=""
while not rs.eof
vlist=vlist & "<option value='" & rs("vstyle") & "'>" & rs("vstyle") & "</option>"
rs.movenext
wend
rs.close
fYear=year(temptime)
fMonth=right("0" & month(temptime),2)
fDay=right("0" & day(temptime),2)
else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -