[asp源码]asp经常使用代码大年夜全

  • A+
所属分类:怎么用手机赚钱
摘要

小白源码资源站x1、ASP末尾完毕符语法:文件后缀.asp2、辨别语句:辨别表单传来的用户名和暗码可否准确,并提醒Ifrequest(“username”)=”admin”thenResponse.write”祝贺,你曾经登录胜利”ElseResponse.write”对不起,您输入的用户名毛病,请前去重输入”EndifIfrequest(“name”)=

小白源码资源站http://www.526bt.com/account?__preferral=41b2453033.2042

x1、ASP末尾完毕符语法:< % 小白源码资源站http://www.526bt.com/account?__preferral=41b2453033.2042 %> 文件后缀.asp

2、辨别语句:辨别表单传来的用户名和暗码可否准确,并提醒
If request("username")="admin" then
Response.write"祝贺,你曾经登录胜利"
Else
Response.write"对不起,您输入的用户名毛病,请前去重输入"
End if

If request("name")="admin" and request("pass")="admin"then
Response.redirect"admin.asp"
Else
Response.redirect"login.asp"
End if

3、轮回语句:轮回显示6条数据库中的记录
写法1:
for n=1 to 6
response.write rs("title")&"< br>"
if not rs.eof then
exit for
else
rs.movenext
end if
next
写法二:
do while not rs.eof
response.write rs("title")&"< br>"
rs.movenext
loop
4、经常使用变量转换函数:
Now() 函数前去系统时间
Date() 函数前去以后系统日期.
CStr(int) 函数转化一个表达式为字符串
CInt(string) 将一个表达式转化为数字类型
Trim(request("username")) 函数去掉落字符串摆布的空格
Left(rs("title"),10) 函数前去字符串左边第length个字符之前的字符(含第length个字符),通俗在限制往事题目标显示长度的时分用
Len(string) 函数前去字符串的长度.

5、Access数据库连接代码
方法一:
db="mydata.mdb" ‘假设放在目次中,就要写明"database/mydata.mdb"
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

方法二:
'假设你的效劳器采取较老版本Access驱动,请用下面连接方法
db="mydata.mdb" ‘假设放在目次中,就要写明"database/mydata.mdb"
Set conn=Server.CreateObject("ADODB.Connection")
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
6、Recordset对象操作数据库语法
(1)翻开sql语句指定的表中的数据,把这批数据放入rs对象中
取出news表中一切的数据放到rs中
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news"
Rs.Open SqlStr,conn,1,1
取出news表中前6条数据放到rs中
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select top 6 * from news"
Rs.Open SqlStr,conn,1,1
(2)轮回显示6条rs对象中存在的数据,列表显示
不带连接的写法
for n=1 to 6
response.write rs("title")&"< br>"
if not rs.eof then
exit for
else
rs.movenext
end if
next
带连接的写法
for n=1 to 6
response.write "< a href="id")>"& left(rs("title"),20)&"< /a>< br>"
if not rs.eof then
exit for
else
rs.movenext
end if
next
(3)向数据库添加一条数据代码
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news"
Rs.Open SqlStr,conn,1,3 ‘留心这里的1,3代表可以写入的翻开数据表
Rs.addnew
Rs("title")=trim(request("title"))
Rs("neirong")=request("neirong")
Rs("date")=now()
rs.update ‘真正写入数据库
(4)修改一笔记录的代码,经过(2)中的连接传递过去了id数值
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news where id="&request("id")
Rs.Open SqlStr,conn,1,3 ‘留心这里的1,3代表可以写入的翻开数据表
Rs("title")=trim(request("title"))
Rs("neirong")=request("neirong")
Rs("date")=now()
rs.update ‘真正写入数据库
(5)删除数据库中一笔记录,经过连接传递过去了数据得id数值
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news where id="&request("id")
Rs.Open SqlStr,conn,1,3 ‘留心这里的1,3代表可以写入的翻开数据表
rs.delete ‘删除该条数据

7、规范Sql语句写法
包罗取全部记录
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news"
Rs.Open SqlStr,conn,1,1 ‘运转sql语句,把数据提出到rs对象中
拔取几条数据
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select top 6 * from news"
Rs.Open SqlStr,conn,1,1 ‘运转sql语句,把6条数据提出到rs对象中
拔取一条指定表中id字段数值的数据
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news where id="&request("id")
Rs.Open SqlStr,conn,1,1 ‘运转sql语句,把6条数据提出到rs对象中
添加一条表单传过去的数据交换
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="insert into news(title,neirong) values(request("title"), request("neirong"))
修改一条指定表中id字段数值的数据,用表单传过去的数据交换
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="update news set title=’"&request("title")&"’,neirong=’"&request("内容")&"’ where id="&request("id")
Rs.Open SqlStr,conn,1,3 ‘运转sql语句,把数据提出到rs对象中
删除一条指定表中id字段数值的数据
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="delete from news where id="&request("id")
Rs.Open SqlStr,conn,1,3 ‘运转sql语句,把数据提出到rs对象中

8、当点击按钮时分表单带着的数据传送到哪个文件,在哪里指定?
< form method="post" action="addsave.asp">
< input type="text" name="title">
< input type="text" name="neirong">
< input type="submit" name="Submit" value="提交">
< /form>

9、表单提交来的数据回收并显示到屏幕上的代码
response.write request("name")
response.write now()
response.write trim(request("name"))

10、应用Application对象作计数器的语法
在网页的头部参与
Application.Lock
Application("counter")=Application("counter") + 1
Application.UnLock
在需求显示计数内容的网页的中央,参与下面的语句
response.write Application("counter")

11、应用Session对象保护后台办理页面admin.asp,防止未上岸用户进入
在网站后台网页admin.asp的头部参与下面的代码,
if session(admin)< >"ok" then
response.redirect"login.asp"
response.end
end if
在网站后台上岸页的暗码验证局部规范写法
AdmName=Request.Form("Name")
AdmPass=Request.Form("Pass")
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="Select * from Admin where name='"&AdmName&"' and pass='"&AdmPass&"'"
Rs.Open SqlStr,conn,1,3
if Rs.EOF AND RS.BOF then
Response.Redirect("login.asp")
response.end
else
session("admin")="ok"
Response.Redirect("admin.asp")
response.end
end if

12、分页代码
sql="select……………………省略了sql语句
 Set rs=Server.Createobject("ADODB.RECORDSET")
 rs.Open sql, conn, 1, 1
 if not rs.eof then
  pages=30 '定义每页显示的记录数
  rs.pageSize=pages '定义每页显示的记录数
  allPages=rs.pageCount '计算一共能分若干页
  page=Request.QueryString("page")'经过浏览器传递的页数
  ’if语句属于基本的排错处理
  if isEmpty(page) or Cint(page) < 1 then    page=1   elseif Cint(page) > allPages then
   page=allPages
  end if
  rs.AbsolutePage=page
  Do while not rs.eof and pages > 0
   '这里输入你要的内容………………
  
pages=pages - 1
   rs.MoveNext
  Loop
 else
  Response.Write("数据库暂无内容!")
 End if
 rs.Close
 Set rs=Nothing
分页页码连接和跳转页码依次
< form Action="v3.asp" Method="GET">
< % If Page < > 1 Then
Response.Write "< A HREF=?Page=1>第一页< /A>"
Response.Write "< A HREF=?Page=" & (Page-1) & ">上一页< /A>"
End If
If Page < > rs.PageCount Then
Response.Write "< A HREF=?Page=" & (Page+1) & ">下一页< /A>"
Response.Write "< A HREF=?Page=" & rs.PageCount & ">最后一页< /A>"
End If
%>
< p>输入页数:< input TYPE="TEXT" Name="Page" SIZE="3"> 页数:< font COLOR="Red">< %=Page%>/< %=rs.PageCount%>< /font>
< /p>
< /form>

13、分行列显示图片和产品称号的代码(4列x3行=12个)
< % Set Rs=Server.CreateObject("ADODB.RecordSet") SqlStr="select top 12 * from myproduct" Rs.Open SqlStr,conn,1,1 i=1 %>

< table width="90%" border="1" cellspacing="0" sellpadding="0">
< tr>
< % do while not rs.eof %>
< td align="center">
< img src="< %=rs("imgurl")%>" width="52" height="120">< br>
< %=rs("productname")%>
< /td>
< % if i mod 4=0 then response.write"< /tr>< tr>"
i=i+1
rs.movenext
loop
rs.close
%>
< /tr>
< /table>

14、ASP数据库连接之ACCESS-SQLSERVER
< % IsSqlData=0 定义数据库种别,0为Access数据库,1为SQL数据库 If IsSqlData=0 Then Access数据库 datapath ="data/" 数据库目次的相对门路 datafile ="data.mdb" 数据库的文件名 connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&datapath&""&datafile&"") Connstr="DBQ="&server.mappath(""&datapath&""&datafile&"")&";DRIVER={Microsoft Access Driver (*.mdb)};" Else SQL数据库 SqlLocalName ="(local)" 连接IP [ 当地用 (local) 外地用IP ] SqlUsername ="sa" 用户名 SqlPassword ="1" 用户暗码 SqlDatabaseName="data" 数据库名 ConnStr="Provider=Sqloledb;User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog=" & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";" END IF On Error Resume Next Set conn=Server.CreateObject("ADODB.Connection") conn.open ConnStr If Err Then err.Clear Set Conn=Nothing Response.Write "数据库连接掉足,请检查连接字串。" Response.End End If On Error GoTo 0 %>

15.用下拉列表框的下拉操作读库

获得数据用request.QueryString("fenleiid")

16.文本框的殊效

17.验证可否为空,鼠标离开文本框读库

<% on error resume next stucode=trim(request("stucode")) if stucode<>"" then
conn.open connstr
strSql="Select * From sheet1 Where stcode='"&trim(stucode)&"'"
'response.Write strSql
set rs=conn.execute(strSql)
if rs.eof then
%>

<% end if end if %>

value="<%=rs("username")%>"<%end if%>>

value="<%=rs("tel1")%>"<%end if%>>

value="<%=rs("tel2")%>"<%end if%>>

18。图片的上传方法
1、在数据添加表单中参与用来保管上传的图片地址和文件的输入框,记下表单称号和这个输入框的称号,以备前面修改时分用。
2、在需求调用上传的输入框前面加上
3、修改upload.asp,找到个中的<%if request.QueryString("filename")<>"" then response.write ""%>;修改个中的form1.textfield6为, 下面第一条中记录的表单名和输入框称号。
4、修改upfile.asp,找到个中第5行formPath="",然后修改=号前面的上传图片保管目次称号就ok了

19。时断时续的转动


分享当前页面将至少获得10%佣金,点此获取推广链接(规则说明)。

本站VIP源码资源永久免费下载!持续更新!www.526bt.com

加入999永久VIP会员带做项目包赚钱!教引流包搭建,社群资源共享!

新项目更新通知QQ群:767688774 站长技术交流QQ群:552760713

点击这里给我发消息

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
微擎 服务器环境搭建 微擎源码 微擎安装 htpps配置 微擎模块应用
域名快速备案个人网站企业公司网站域名快速代理备案快速服务|网站快备
最新版影视APP仿乐尚视界/橙子/聚合影视/苹果IOS安卓版 苹果签名内部价
网站漏洞修复 网站木马清理 漏洞修复 漏洞检测 服务器安全维护

发表评论

您必须才能发表评论!