📄 二次开发参考代码.txt

📁 精美OA网络办公系统,带PSD文件.可任意修改.
💻 TXT
字号:
权限代码 if WS_S.MemberPriv("WS_PublicAffairsBookView")<>1 then response.Write "<script>alert('对不起,您的权限不够!');window.close();</script>":response.end									
             if WS_S.MemberPriv("WS_PublicAffairsBookView")<>1 then HX_GoBack "对不起,您的权限不够!",""

日期设置代码<!--#INCLUDE FILE="../HXINCLUDE/SelectDate.asp"-->

             <input type="text" name="Date1" size=10 readonly>  <input onclick="popUpcalendar(this, form1.Date1, 'yyyy/mm/dd')" type="button" value="选择" title="选择开始时间">
                                

格式化时间函数  formatdatetime

只允许输入数字 style="ime-mode:disabled" onKeyPress="event.returnValue=IsDigit();"

关闭输入法     style="ime-mode:disabled"

组建日期      DateSerial(cint(request("yy1")),cint(request("mm1")),cint(1))

查询没有重复的记录  distinct     select distinct username from [user]

js代码调用     <script src="../HXinclude/HX_Function.js"></script>

添加修改数据后代码:
  response.write "<script>window.opener.location.reload();if(!confirm('是否继续添加？')) window.close();else location.href='weburlsearchadd.asp';</script>"
  response.end


   response.write "<script>window.opener.location.reload();if(confirm('是否继续添加？')) {location.href='WorkFlowAddType.asp';}else {location.href='WorkFlowType.asp';window.close();}</script>"
   response.end

   response.write "<script>if(confirm('修改成功!\n是否关闭此窗口？')) {window.close();window.opener.location.reload();}else {location.href='carmodify.asp?WS_MAID="&WS_MAID&"';}</script>"
   response.end


色调代码:   D4D0C8     A1BBE0

<a href="javascript:" onclick="showModalDialog('../HXEditor/table.htm', '', 'dialogWidth:25em; dialogHeight:17em; status:0;help:0');"


输入用户信息代码: Call WS_S.HX_OutUserInfo(loginuid):response.Write Outdepartment&OutAppointmen&OutName


改变表格行色调: onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'


自动选择文本框: onFocus=this.select() onMouseOver=this.focus()

选择用户代码:   <input onclick="openwin(510,500,'../HXinclude/HX_Checkuser.asp?checkuser=OfficeManage')" type="button" value="选择" class="bdlogin">

输出表记录代码:
if rs.recordcount<=0 then
response.Write "<tr><td colspan=5 bgcolor=ffffff height=25 align=center>暂无记录！</td></tr>"
else
 rs.PageSize =15 '每页记录条数
	iCount=rs.RecordCount '记录总数
	iPageSize=rs.PageSize
    	maxpage=rs.PageCount 
    	page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	ii=0
	do while not rs.EOF
	   %>
       <tr <%if ii mod 2=0 then response.write "bgcolor='#FFFFFF'" else response.write "bgcolor='#f1f1f1'"%>>


 <%ii=ii+1
	  if ii>=rs.PageSize then Exit Do
	  rs.movenext
      loop
      call WS_S.PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>",5)
	   end if
	  call WS_S.HX_RSClose(rs) 
%>

关闭表对象代码  call WS_S.HX_RSClose(rs) 

菜单权限  if WS_S.MemberPriv("WS_DeskMyoffice")=1 then response.write "<tr><td width=""100%"" align=""center""  class=""include1""><a href=""HXPersonalOffice/index.asp"" onclick=""top.right.location='HXPersonalOffice/MyMessage.asp';""><font color=""#FFFFFF"">个人办公</font></a></td></tr>"


禁止右键: <body oncontextmenu='return false' ondragstart='return false' onselectstart='return false' onkeydown='if((event.ctrlKey)||(event.keyCode==8)||(event.keyCode==116)){event.keyCode=0;return false}'>


加框代码  <fieldset><legend> 个体内容 </legend></fieldset>

检测木马 WS_S.CheckDir filepath,True
	if WS_S.HX_ScanFile(FileSeverPath) then
	  WS_S.CheckFile FileSeverPath,True 
	  conn.execute("delete * from HX_NetDiskFolderOrFile where WS_FDID="&FileId)
	  HX_GoBack "对不起,您上传的文件中含有木马程序,所以不能上传!",""
	end if
⌨️ 快捷键说明

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