10天asp完整学习代码100满意Word下载.docx

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>