常用函数.txt

为我们公司使用的oa系统

常用函数



<!--#include file="asp/nocacheurl.asp"-->
<!--#include file="asp/sqlstr.asp"-->
<!--#include file="asp/checked.asp"-->
<!--#include file="asp/opendb.asp"-->
set conn=opendb("oabusy","conn","accessdsn")

<table border="0"  cellspacing="0" cellpadding="0" width="100%" height="80">



<form action="maintainkno.asp" method=get name="form1">
<select size="1" name="cartypeid" onChange="document.form1.carpartid.value='';document.form1.carsystemid.value='';document.form1.caroperationid.value='';document.form1.carcomponentid.value='';document.form1.submit();">
    <option value="">车辆型号</option>

    <option value=23>普通车辆</option>

    <option value=24>帕萨特</option>
</select>



<a href="regist.asp<%=nocacheurl()%>">用户注册</a><br>

On Error Resume Next

response.cookies("aichenetuser")=rsusername


cookuser=request.cookies("aichenetuser")

response.redirect 

DBPath=server.MapPath("../db/forum.mdb")
set conn=opendb(DBPath,"conn")
set rs=server.createobject("adodb.recordset")
sql="select * from userinf where catalog=" & sqlstr(catalog)
rs.open sql,conn,1



Set conn=Server.CreateObject("ADODB.Connection")
DBPath=server.MapPath("db/carinf.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.createobject("adodb.recordset")
sql="select * from carinf where username=" & sqlstr(username) & " and cardnumber=" & sqlstr(cardnumber)
rs.open sql,conn,1

set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select DISTINCT * from userinf"
rs.open sql,conn,1


if rs.eof or rs.bof then
end if


Set conn=Server.CreateObject("ADODB.Connection")
DBPath=server.MapPath("db/carinf.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.createobject("adodb.recordset")
sql = "Insert Into carinf (username,drivingzoon) Values( "
sql = sql & SqlStr(username) & ", "
sql = sql & SqlStr(drivingzoon) & ")"
conn.Execute sql
conn.close


Set conn=Server.CreateObject("ADODB.Connection")
DBPath=server.MapPath("db/carinf.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.createobject("adodb.recordset")
sql = "delete * from member where " & condition
conn.Execute sql
conn.close



Set conn=Server.CreateObject("ADODB.Connection")
DBPath=server.MapPath("db/buycar.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.createobject("adodb.recordset")
sql = "update buycar set finish='是' where id=" & request("id")
conn.Execute sql
conn.close


 <table border="0"  cellspacing="0" cellpadding="0" width="760" height="80">

<td width="254" height="23" colspan="2"></td>



<a href="javascript:void(null)" onclick="history.go( -1 );return true;"><font size="5" color="blue">返回</font></a>


<form method="post" name="register" action="addcarinf.asp" onsubmit="return form_check();">
</form>


while not rs.bof and not rs.eof
wend


<input type="submit" name="del" value="删除>>" onclick="return window.confirm('这样会删除此车型的所有维护保养资料，您真的要删除吗？');">



On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
DBPath=server.MapPath("db/aichenews.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath 
Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from aichenews where sort=" & sqlstr(sort) & " order by id desc"
rs.open sql,conn,1
rs.pagesize=20
page=clng(request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
href="aichenews.asp"
showonepage rs,page,href
if err<>0 then
%><br><br><br>
<table border="0" cellpadding="0" cellspacing="0" width="400">
<tr>
<td width="400" align="center"><font size="4" color="red">对不起,没有相关纪录</font></td></tr></table>
<%
end if
rs.absolutepage=page
%>
<table border="0" cellpadding="0" cellspacing="0" width="500">
<%
for ipage=1 to rs.pagesize
%>
<tr>
<td align="center" width=10>●</td>
<td><a href="shownewspage.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a><%if rs("haveimage")="yes" then response.write "<b>〖有图片〗</b>"%></td>
<td align="center" width=100><%=rs("inputtime")%></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
</table>
<table border=0 width=550>
<tr><form action=<%=href%> method=get>
<td align="center">
<%
response.write "<a href=" & href & "?page=1&sort=" & server.urlencode(sort) & "&title=" &  server.urlencode(title1) & "&data=" & server.urlencode(data) & ">第一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & (page-1) & "&sort=" & server.urlencode(sort) & "&title=" &  server.urlencode(title1) & "&data=" & server.urlencode(data) & ">上一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & (page+1) & "&sort=" & server.urlencode(sort) & "&title=" &  server.urlencode(title1) & "&data=" & server.urlencode(data) & ">下一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & rs.pagecount & "&sort=" & server.urlencode(sort) & "&title=" &  server.urlencode(title1) & "&data=" & server.urlencode(data) & ">最后一页</a>"
%>
</td>
<td align="center">
去第<input type=text name=page size=3>页</td>
<input type="hidden" name="sort" value="<%=sort%>">
<input type="hidden" name="title" value="<%=title1%>">
<input type="hidden" name="data" value="<%=data%>">
<td align="center">第<%=page%>/<%=rs.pagecount%>页</td></form></tr></table><br>

              

<form id="form1" name="form1">
<select name="list" size="1" onChange="parent.location.href=this.form.list.options[this.form.list.selectedIndex].value">
<option value="index.html">请您选择快速通道</option>
<option value='http://www.gnet.gd.cn'>21CN网站</option>
</select>
</form>



<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="css/css.css">
<title>增加公司职员资料</title>
</head>
<body>




if request("submit")="输入" then
if Session(cardnumber)<>cardnumber then
Set conn=Server.CreateObject("ADODB.Connection")
DBPath=server.MapPath("db/mcrec.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.createobject("adodb.recordset")
sql = "Insert Into mcrec (mfstaf,cardnumber,username) Values( "
sql = sql & SqlStr(mfstaf) & ", "
sql = sql & SqlStr(cardnumber) & ", "
sql = sql & SqlStr(username) & ")"
conn.Execute sql
conn.close
Session(cardnumber)=cardnumber
end if
end if



<script Language="JavaScript">
 function checklength(str,l) {
    if(str.length == l){return true;}else{return false;}
                              }

 function maxlength(str,minl,maxl) {
    if(str.length <= maxl && str.length >= minl){return true;}else{return false;}
                                    }

 function checkemail(email){
    var a=0;
    var b=0;
    if(maxlength(email,6,30)){
      for(var i=1;i<(email.length-2);i++){
        if(email.charAt(i)=="@"){a=1;}
        if(email.charAt(i)=="."){b=1;}
                                          }
    if(a==1 && b==1){return true;}else{return false;}
                              }
                            }

 function isalph(str) {
   var a=0;
   var alpharray=new Array ("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z");
   var strlowercase=str.toLowerCase();
   for (var i=0;i<strlowercase.length;i++){
      for(alph in alpharray){
        if(strlowercase.charAt(i)==alpharray[alph]){a=1;break;}else{a=0;}
                             }
   if(a==0){break;}

                                           }
   if(a==1){return true;}else{return false;}
                       }


 function isnum(str) {
   var a=0;
   var numarray=new Array ("0","1","2","3","4","5","6","7","8","9");
   for (var i=0;i<str.length;i++){
     for(num in numarray){
     if(str.charAt(i)==numarray[num]){a=1;break;}else{a=0;}
                          }
     if(a==0){break;}
                                  }
     if(a==1){return true;}else{return false;}
                      }

 function form_check(){
   var l1=maxlength(document.register.username.value,2,8);
   if(!l1){window.alert("会员代号为大于2位小于8位的英文字母");document.register.username.focus();return (false);}

   var alph1=isalph(document.register.username.value);
   if(!alph1){window.alert("会员代号为大于2位小于8位的英文字母");document.register.username.focus();return (false);}

   var l2=checklength(document.register.password.value,6);
   if(!l2){window.alert("密码的长度应为6位");document.register.password.focus();return (false);}

   var a1=document.register.password.value;
   var a2=document.register.repassword.value;
   if(a1!=a2){window.alert("两次输入的密码应相同");document.register.repassword.focus();return (false);}

   var l3=maxlength(document.register.name.value,2,10);
   if(!l3){window.alert("申请人真实姓名，长度小于10大于2");document.register.name.focus();return (false);}

   var l4=maxlength(document.register.birthday.value,5,20);
   if(!l4){window.alert("出生日期，长度小于20大于5");document.register.birthday.focus();return (false);}


   var l8=maxlength(document.register.tel.value,5,20);
   if(!l8){window.alert("电话的长度应大于5小于20位");document.register.tel.focus();return (false);}

   var l9=maxlength(document.register.company.value,5,50);
   if(!l9){window.alert("工作单位，长度应大于5小于50位");document.register.company.focus();return (false);}

   var l10=maxlength(document.register.address.value,5,50);
   if(!l10){window.alert("地址，长度应大于5小于50位");document.register.address.focus();return (false);}

   var email11=checkemail(document.register.email.value);
   if(!email11){window.alert("email地址不对");document.register.email.focus();return (false);}

   var l12=checklength(document.register.postalcode.value,6);
   if(!l12){window.alert("邮政编码的长度应为6位的数字");document.register.postalcode.focus();return (false);}

   var l13=isnum(document.register.postalcode.value,6);
   if(!l13){window.alert("邮政编码的长度应为6位的数字");document.register.postalcode.focus();return (false);}

   var l14=maxlength(document.register.idno.value,5,30);
   if(!l14){window.alert("身份证号长度应大于5小于50位");document.register.idno.focus();return (false);}
                    }

</script>



if Session("public")<>request("publicid") then
Session("public")=request("publicid")

<input type="hidden" name="publicid" value="
<%
Randomize
response.write rnd
%>
">

<input type="button" value="返回" onclick="window.location.href='stafinfcontrol.asp';">

<textarea rows="2" name="S1" cols="20"></textarea>


      <td width="102" height="48" rowspan="2"></td>
      <td width="89" height="25"></td>
    </tr>
    <tr>
      <td width="89" height="23"></td>
    </tr>
    <tr>
      <td width="191" height="61" colspan="2"></td>