Easyasp V3学习笔记
一个客户的网站是用asp.net开发的,现在遇到一些问题,需要二次开发一些功能。可是没有源代码,我对asp.net开发不了解,想着10多年前有学过asp,于是就用asp来给他增加一些功能吧。网上找到一个asp的开发框架叫easyasp的,可惜作者官网都打不开了。教程也没有完整的,自己慢慢摸索学习吧。
首先下载好框架放置到网站目录下,包含一下主文件:<!--#include file="easp.asp"-->
生成连接字符串并建立数据库连接对象。
Dim Conn,rs,i Set Conn = Easp.Db.OpenConnection("MSSQL","dbname","dbuser:dbpassword@127.0.0.1")
查询数据库:
set rs=easp.db.query("SELECT * FROM db.table where id=1") for i=0 to 4 easp.print rs(i)&"<br>" next
插入数据库:
Dim Pid,Pname Easp.Var("Pid")=1 Easp.Var("Pname")="Photoshop" Easp.Db.Exec("Insert into dbo.News_Type (Pid,Pname) Values ({Pid},{Pname})")
连接数据库:easyasp>easp.config.asp 根据不同数据库,取消掉前面的注释符号然后配置。
mssql为例子:Easp.Db.SetConn "MSSQL", "数据库名", "用户名:密码@(local)"
asp文件中使用: 首先引入<!--#include file="easyasp/easp.asp" -->
然后创建与数据库的连接:
<%
dim sql,rs
sql="select * from 表名 where userid =6"
set rs=easp.db.exec(sql)
%>
最后调用:
<td><%=rs("realname")%></td>
<%
Dim email,jg,uphone,address,username,ucard
username=easp.var("post.username")
ucard=easp.var("post.idcard")
email=Easp.var("post.u_email")
jg=Easp.var("post.u_jiguan")
uphone=Easp.var("post.uphone")
address=Easp.var("post.u_address")
If easp.var("do")="edit" Then
Dim cduinfo_all_up
cduinfo_all_up = Easp.Db.Upd("cduserjiaoyuan", "realname= {username}, tel= {uphone} ,jiguan={post.u_jiguan},address1={post.u_address},card={post.idcard},UserEmail={post.u_email}","userid=3")
Easp.Str.JsAlert("修改成功!")
End If
%>
上述颜色标注的两种调用方法均可实现调用!红色标注的不用定义中间超级变量。