asp办公系统office

常用函数 <!--#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;}