10天asp完整学习代码100满意Word下载.docx
- 文档编号:3667452
- 上传时间:2023-05-02
- 格式:DOCX
- 页数:34
- 大小:144.76KB
10天asp完整学习代码100满意Word下载.docx
《10天asp完整学习代码100满意Word下载.docx》由会员分享,可在线阅读,更多相关《10天asp完整学习代码100满意Word下载.docx(34页珍藏版)》请在冰点文库上搜索。
metahttp-equiv="
Content-Type"
content="
text/html;
charset=gb2312"
/>
--#includefile="
conn.asp"
-->
inc/date.asp"
title>
修改信息<
/title>
/head>
body>
%
id=trim(request("
id"
))
'
gh_id=trim(request("
gh_id"
))'
按区域查看
name=trim(request("
name"
按编号查找
tell=trim(request("
tell"
按名称查找
tablewidth="
70%"
border="
1"
align="
center"
id="
人员信息"
<
tr>
thscope="
col"
divalign="
工号<
/div>
/th>
姓名<
电话<
备注<
时间<
操作<
/tr>
formaction="
Article_do.asp?
act=add"
method="
post"
--<
inputtype="
hidden"
name="
act"
value="
add"
td>
inputtype="
text"
"
size="
10"
maxlength="
8"
/>
/td>
12"
11"
content"
add_time"
%=now()%>
20"
inputname="
type="
onClick="
fPopCalendar(event,this,this)"
onFocus="
this.select()"
>
日期选择器-->
submit"
提交"
button"
取消"
javascript:
window.history.go(-1);
/form>
colspan="
6"
--分页控件-->
/table>
/body>
/html>
(2)Article_do.asp文件代码
操作处理<
==============================接收参数==============
id=trim(request("
))
act=request("
)
gh_id=request("
name=request("
tell=request("
content=request("
add_time=request("
==============================添加信息==========================
Ifact="
then
ifgh_id="
orname="
ortell="
orcontent="
then
Response.Write"
palign=center>
fontcolor=red>
工号和姓名不能为空,请重新输入!
/font>
script>
window.setTimeout("
location.href='
window.history.go(-1)'
2000);
/script>
/p>
else
setrs=server.createobject("
adodb.recordset"
sql="
Select*Fromaaa"
rs.opensql,conn,3,3
Rs.addnew
Rs("
)=gh_id
)=name
)=tell
)=content
)=now()
Rs.Update
rs.Close
setrs=nothing
您已添加一条信息!
Article_list.asp'
1500)<
response.End()
Endif
endif
=============================修改信息==============================
edit"
Then
setrs=server.createobject("
select*fromaaawhereidlike'
%"
&
id&
%'
Rs.Opensql,Conn,1,3
rs("
)=name
)=add_time
rs.update
rs.close
setrs=nothing
Response.Write"
修改成功!
1000)<
else
=============================删除信息=============================
Ifact="
del"
Then
Conn.Execute("
deletefromaaawhereid="
id)
删除一条记录!
request.servervariables("
http_referer"
)&
1000);
Response.End()
==================================================================
(3)Article_edit.asp文件代码
rs.opensql,conn,1,1
%
dowhilenotrs.eof
%>
act=edit&
id=<
%=rs("
)%>
--<
%=rs("
提交"
onClick='
returnconfirm("
确定修改?
);
&
nbsp;
取消"
Rs.movenext
loop
'
(4)Article_list.asp文件代码
inc/page.asp"
-->
信息列表<
ifgh_id<
sql="
select*fromaaawhere[gh_id]like'
gh_id&
编号精确搜索
elseifname<
select*fromaaawhere[name]like'
name&
elseiftell<
select*fromaaawhere[tell]like'
tell&
else
select*fromaaaorderbygh_idasc"
rs.opensql,conn,1,1
%
Setmypage=newxdownpage
mypage.getconn=conn
mypage.getsql=Sql
mypage.pagesize=15
Setrs=mypage.getrs()
fori=1tomypage.pagesize
ifRs.eoforRs.bofthen
exitfor
endif
tdalign="
ahref="
Article_show.asp?
/a>
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 10 asp 完整 学习 代码 100 满意