10天asp完整学习代码100满意.docx
- 文档编号：20103640
- 上传时间：2023-04-25
- 格式：DOCX
- 页数：34
- 大小：144.76KB
10天asp完整学习代码100满意.docx
《10天asp完整学习代码100满意.docx》由会员分享，可在线阅读，更多相关《10天asp完整学习代码100满意.docx（34页珍藏版）》请在冰豆网上搜索。
10天asp完整学习代码100满意
10天学习asp完整代码（优化、简化版）
1、建一个文件夹（最好是英文名）
2、下载一个AWS.exe。
AWS—AmazonWebServices，即asp网站运行软件，存在根目录下；
3、新建多个记事本，把下文的代码复制粘贴在记事本中保存，再重命名，把后缀txt改为asp；（代码见第5条）
4、建立命名为data的数据库，建立表名为aaa的数据表，保存为Access2003版，字段名如下；
鼠标放在aaa表名这里，点击右键打开“设计视图”字段数据属性如下：
5、按第3条所述，把下面的代码复制到记事本中分别保存为对应代码（红色字不要复制）；
（1）Article_add.asp文件代码
<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%>
DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http:
//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
//www.w3.org/1999/xhtml">
--#includefile="conn.asp"-->
--#includefile="inc/date.asp"-->
<%
id=trim（request（"id"））
'gh_id=trim（request（"gh_id"））'按区域查看
'name=trim（request（"name"））'按编号查找
'tell=trim（request（"tell"））'按名称查找
%>
act=add"method="post"> -- -- DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http: //www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> //www.w3.org/1999/xhtml"> --#includefile="conn.asp"--> --#includefile="inc/date.asp"--> <% id=trim（request（"id"）） 'gh_id=trim（request（"gh_id"））'按区域查看 'name=trim（request（"name"））'按编号查找 'tell=trim（request（"tell"））'按名称查找 %> act=add"method="post"> -- -- window.history.go（-1）;"> --分页控件--> （2）Article_do.asp文件代码 <%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%> DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http: //www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> //www.w3.org/1999/xhtml"> --#includefile="conn.asp"--> <% '==============================接收参数============== id=trim（request（"id"）） act=request（"act"） gh_id=request（"gh_id"） name=request（"name"） tell=request（"tell"） content=request（"content"） add_time=request（"add_time"） '==============================添加信息========================== Ifact="add"then ifgh_id=""orname=""ortell=""orcontent=""then Response.Write" else setrs=server.createobject（"adodb.recordset"） sql="Select*Fromaaa" rs.opensql,conn,3,3 Rs.addnew Rs（"gh_id"）=gh_id Rs（"name"）=name Rs（"tell"）=tell Rs（"content"）=content Rs（"add_time"）=now（） Rs.Update rs.Close setrs=nothing Response.Write" response.End（） Endif endif '=============================修改信息============================== Ifact="edit"Then setrs=server.createobject（"adodb.recordset"） sql="select*fromaaawhereidlike'%"&id&"%'" Rs.Opensql,Conn,1,3 rs（"gh_id"）=gh_id rs（"name"）=name rs（"tell"）=tell rs（"content"）=content rs（"add_time"）=add_time rs.update rs.close setrs=nothing Response.Write" else endif '=============================删除信息============================= Ifact="del"Then Conn.Execute（"deletefromaaawhereid="&id） Response.Write" Response.End（） Endif '================================================================== %>