@.连接语句conn.asp: <% On Error Resume Next dim conn,connstr Set conn = Server.CreateObject("ADODB.Connection") 'connstr="driver={SQL Server};server=192.168.2.12;uid=sa;pwd=sms;database=s2p" ConnStr="driver={microsoft access driver (*.mdb)};dbq="& Server.MapPath(DbPath) conn.Open connstr If Err Then Err.Clear Set conn = Nothing Response.Write "数据库连接文件出错,请联系管理员。" Response.End End If %>
@https://www.doczj.com/doc/3212747507.html,连接语句: Data Source=localhost;Initial Catalog=hotel;User ID=sa;PWD=smssilvcom
<% set rs=server.CreateObject("adodb.recordset")' //(建立recordset对象) sqlstr="select ip, engine,keyword,url,visittime from webcount" 'response.Write sqlstr 'response.end rs.open sqlstr,conn,1,1 if not rs.eof then '判断记录集是否为空 rs.movefirst %>
访客IP地址
来源搜索引擎
搜索关键字
访问页面
来访时间
<%do while not rs.eof%>
<%=rs("IP")%>
<%=rs("Engine")%>
<%=rs("Keyword")%>
<%=rs("URL")%>
<%=rs("visittime")%>
<% rs.movenext loop else '输出错误信息 response.Write("Sorry,目前还没有任何统计数据!") end if rs.close set rs=nothing conn.close set conn=nothing %>
================================================================================== asp分页代码: <%set rs=server.CreateObject("adodb.recordset")' //(建立recordset对象) sqlstr="select * from uni_recvsms where smscontent like 'xy1%' or smscontent like 'XY1%'" 'response.Write sqlstr 'response.end rs.open sqlstr,conn,1,1 if rs.recordcount=0 then '输出错误信息 response.Write("Sorry,校园兼职版块暂时没有人发布信息!") response.end end if rs.movefirst() rs.PageSize=12 pagecount=rs.PageCount page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 end if if page>=pagecount then page=pagecount end if if page=pagecount then x=rs.recordcount-rs.pagesize*(pagecount-1) else x=rs.pagesize end if rs.AbsolutePage=page %>
<% rs.close set rs=nothing conn.close set conn=nothing %> =============================================================================================================== @recordset 的属性和方法: 获取记录个数:<%=rs.recordcount %> 延长asp脚本响应时间 server.ScriptTimeout=1800
@脏话过滤程序
]<% action=request.form("action") if action="add" then a=request.form("aa") filter_text="fuck|江泽民|胡锦涛|admin|管理员" filter_text=split(filter_text,"|") for i=0 to ubound(filter_text) if filter_text(i)=a then response.write "你提交的是系统禁止的"&" back" response.end end if next end if %>
================================================================================== @session组件的用法: 在login.asp有 <% dim user,pwd user=request.Form("user") pass=request.Form("pwd") if trim(user)="yinxun" and trim(pass)="silvcom" then session("islogin")="yes" '这句是重点 response.Redirect("tongji.asp") else response.write("登陆失败!错误原因:登陆信息填写不正确!") end if %>
然后在所有想使用验证登陆的asp页面上使用如下语句: <% if not session("islogin")="yes" then response.redirect "login.asp" end if %> ================================================================================== @sql 中 日期型转化成字符串函数,其中convert函数第2个参数为列名 select CONVERT(varchar(10), getDate(),120) --不要时间2002-1-1 select convert(char(8),getdate(),112) --20020101 select convert(char(8),getdate(),108) --06:05:05
CREATE TRIGGER [sendsms] ON [dbo].[dv_Sendsms] FOR INSERT, UPDATE, DELETE AS insert sms.dbo.sms_to_send(DestAddr,userdata,ServiceSubType,Sfeecode,sendtime) select destaddr,content,ServiceSubType,'0',sendtime from inserted delete from sms.dbo.sms_to_send where sms.dbo.sms_to_send.ServiceSubType='xyzh' and sms.dbo.sms_to_send.sendtime=(select sendtime from deleted)
SELECT Title, 'Price Range' = CASE WHEN price IS NULL THEN 'Unpriced' WHEN price < 10 THEN 'Bargain' WHEN price BETWEEN 10 and 20 THEN 'Average' ELSE 'Gift to impress relatives' END FROM titles ORDER BY price
<% set rs=server.CreateObject("adodb.recordset")'生成school列表 set rs2=server.CreateObject("adodb.recordset")'生成group列表 sqlstr="select distinct schoolname from uni_group where schoolname<>''" rs.open sqlstr,conn,1,1 sqlstr2="select groupid,groupname,schoolname from uni_group where groupname<>'系统管理员' and groupname<>'学校管理员' " rs2.open sqlstr2,conn,1,1'两个记录集通过schoolname 相关联 %>