常用函数
<!--#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;}
没有合适的资源?快使用搜索试试~ 我知道了~
公司使用的oa.rar_OA办公系统_asp 系统_oa 系统_公司
共305个文件
asp:150个
gif:129个
htm:6个
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 153 浏览量
2022-09-23
06:15:19
上传
评论
收藏 1.61MB RAR 举报
温馨提示
为我们公司使用的oa系统,加了一些特定的功能
资源推荐
资源详情
资源评论
收起资源包目录
公司使用的oa.rar_OA办公系统_asp 系统_oa 系统_公司 (305个子文件)
syscode_article.asp 57KB
editor.asp 52KB
function.asp 51KB
syscode_soft.asp 51KB
syscode_Photo.asp 44KB
admin_code_guest.asp 39KB
syscode_guest.asp 32KB
harry.asp 24KB
addFiles.asp 19KB
EditFile.asp 18KB
editpersoninf.asp 15KB
admin_code_article.asp 15KB
admin_code_photo.asp 15KB
admin_code_soft.asp 15KB
stafpersoninf.asp 15KB
ubbshow.asp 15KB
personinf.asp 14KB
wageinf.asp 12KB
editwageinf.asp 12KB
FORMAT.asp 11KB
stafweekrep.asp 11KB
md5.asp 11KB
addwageinf.asp 11KB
ubbcode.asp 10KB
editclientinf.asp 10KB
left.asp 10KB
UBB_news.asp 10KB
ubbcode.asp 10KB
addclientinf.asp 9KB
editstafaddressinf.asp 8KB
checkinf.asp 8KB
jobchanginf.asp 8KB
weekrep.asp 8KB
rewpuninf.asp 8KB
senddatecontrol.asp 7KB
showclientinf.asp 7KB
addbooking.asp 7KB
stafdayrep.asp 7KB
editjobchang.asp 7KB
editcheckinf.asp 7KB
showstafaddressinf.asp 7KB
checkcode.asp 6KB
editrewpuninf.asp 6KB
addchangjob.asp 6KB
default.asp 6KB
addcheckinf.asp 6KB
booking.asp 6KB
havercidate.asp 6KB
setting.asp 6KB
havesenddate.asp 6KB
addrewpuninf.asp 6KB
editworkrep.asp 5KB
noticecontrol.asp 5KB
upfile_class.asp 5KB
editpersoninfindb.asp 5KB
showdate.asp 5KB
adduser.asp 5KB
addressinfpopedom.asp 4KB
noticelook.asp 4KB
edituserinf.asp 4KB
datereturn.asp 4KB
top0.asp 4KB
webhead.asp 4KB
personinfpopedom.asp 4KB
senddate.asp 4KB
editequipment.asp 4KB
edithelpinf.asp 4KB
usercontrolpopedom.asp 4KB
testnotice.asp 4KB
userlevelcontrol.asp 4KB
noticefilepopedom.asp 4KB
displayworkrec.asp 4KB
incjs.asp 4KB
jobchanginfpopedom.asp 4KB
deptcontrol.asp 4KB
rewpunpopedom.asp 4KB
checkinfpopedom.asp 4KB
wageinfpopedom.asp 4KB
workplanpopedom.asp 3KB
browseFiles.asp 3KB
edithelpsort.asp 3KB
managerinfo.asp 3KB
stafaddressinf.asp 3KB
addworkrep.asp 3KB
senddateindb.asp 3KB
worksum.asp 3KB
clientinf.asp 3KB
addweekrep.asp 3KB
Upfile_AdPic.asp 3KB
showFileInfo.Asp 3KB
editweekrep.Asp 3KB
dayrep.asp 3KB
addequipment.asp 3KB
addstaf.asp 3KB
editbooking.asp 3KB
browseweekrep.Asp 3KB
inputhelpinf.asp 3KB
monthlycal.asp 3KB
usercontrol.asp 3KB
popdate.asp 3KB
共 305 条
- 1
- 2
- 3
- 4
资源评论
小贝德罗
- 粉丝: 70
- 资源: 1万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功