易截截图软件、单文件、免安装、纯绿色、仅160KB
热门标签: c c# c++ asp asp.net linux php jsp java vb Python Ruby mysql sql access Sqlite sqlserver delphi javascript Oracle ajax wap mssql html css flash flex dreamweaver xml
 最新文章 : asp

asp会员注册后自动登陆

<%
set rs=server.createobject("adodb.recordset")
sql="select * from YONGHU where (ID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("USERNAME")=request("username")
rs.update
rs.close
set rs=nothing
conn.close 
set conn=nothing
session("username")=rs("name")
    response.redirect "index.asp"
%>
在首页显示用户名就用 <%=session("username")%>
=====================================
在用户注册成功后:
1、添加变量session("names")为用户名称;
2、检测len(session("names"))是否为0(即变量是否空),如果不空,response.Redirect("会员中心页面") ,如果空,仍然在登录页面,提示登录不成功。 ......

ASP控件大全讲解

4.1 常用的HTML控件
4.1.1 表单控件
用于接收客户端的输入,并将输入的结果提交给服务器处理
1.HtmlForm控件
 所有的Web Form控件必须包含在一对HtmlForm控件标签中
<Form
   Id = "控件标识"
   Runat = "Server"
   Method = "Post | Get"
   Action = "要执行程序的地址"
>
   其他控件
</Form>
2. HtmlInputBotton控件
<Input
    Id = "被程序代码所控制的名称"
    Runat = "Server"
    Type = "Bottom | Submit | Reset"
    OnServerClick = "事件处理程序"
>
当为Submit时,是传送数据;等于Button时,可以用来触发事件程序;
Reset是用来重置窗体成为初始状态
3. HtmlInputText控件
<Input
   Id="被程序代码所控制的名称"
   Runat= "Server"
   Type="Text | Password"
   MaxLength = "可接收的字符串长度"
   Size="文本输入框的宽度"
   Value = "显示在输入框的默认值"
>
4.HtmlInputRadioButton控件
<Inpu ......

Oracle大文本在ASP中存取问题的解决


在我开发BS结构程序中,由于经常需要在ORACLE中处理一些容量较大的文本数据,所以经过反复测试终于用ASP成功解
决了大文本数据在ORACLE下存取问题。
  
  一、运行环境:
  1、Microsoft Windows 2000 Server + IIS 5.0
2、Oracle8i中文标准版
  
  二、建立数据表:
  CREATE TABLE SYSTEM.TEST(
BLOB LONG,
ID NUMBER)
/
  三、源程序:
1、数据存入程序:test.asp
<%
'表单提交处理部分
'--------------------------------------------------
If request("ok")=1 then
'字符转换函数
function tansstr(sstr)
sstr=replace(sstr," "," ")
sstr=replace(sstr,chr(13) & chr(10),"<br>")
tansstr=sstr
end function
'提交数据赋值
a=lenb(request("text"))
b=len(request("text"))
c=tansstr(request("text"))
'打开数据库,打开test数据表以Rs为记录集
Set OraSession=CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.DbOpenDatabase("autop","system/manager",0)
Set rs=OraDatabase.CreateDynaset("select * from test order by id desc",0)
'求ID值
if rs.eof then
id=1
else
......

Oracle大文本在ASP中存取问题的解决


在我开发BS结构程序中,由于经常需要在ORACLE中处理一些容量较大的文本数据,所以经过反复测试终于用ASP成功解
决了大文本数据在ORACLE下存取问题。
  
  一、运行环境:
  1、Microsoft Windows 2000 Server + IIS 5.0
2、Oracle8i中文标准版
  
  二、建立数据表:
  CREATE TABLE SYSTEM.TEST(
BLOB LONG,
ID NUMBER)
/
  三、源程序:
1、数据存入程序:test.asp
<%
'表单提交处理部分
'--------------------------------------------------
If request("ok")=1 then
'字符转换函数
function tansstr(sstr)
sstr=replace(sstr," "," ")
sstr=replace(sstr,chr(13) & chr(10),"<br>")
tansstr=sstr
end function
'提交数据赋值
a=lenb(request("text"))
b=len(request("text"))
c=tansstr(request("text"))
'打开数据库,打开test数据表以Rs为记录集
Set OraSession=CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.DbOpenDatabase("autop","system/manager",0)
Set rs=OraDatabase.CreateDynaset("select * from test order by id desc",0)
'求ID值
if rs.eof then
id=1
else
......

ASP的DES加密解密

ASP的DES加密解密
2007-05-18 09:49
原文:http://hi.baidu.com/myfav/blog/item/3ebc58828edd79a30cf4d290.html
前两天学到对称密码DES算法,然后就自己亲手写了个实现程序出来,好多地方用得着呐。这里是用ASP实现,当然也就是可以移到VB啦。懂得怎样写后写成什么语言都行啦,只要懂得那门语言。如果有朋友想知道具体DES算法过程是怎样的,可以到网上查找。
(这两天又把它改进了一下,加密字符串并且使用十六进制,这样加密后的字符串会短些~~~      —— 2007年5月2日)
<%
Class Cls_DES
     Private IPRule, CPRule, EPRule, PRule, SBox(7), PCRule(1), MvRule
     Private K(16), L(16), R(16)
     Private FillCode, DesStatus
    
     Private Sub Class_Initialize()
         DesStatus = -1
         FillCode = "0001101"
         IPRule = "58,50,42,34,26,18,1 ......

ASP 限制发帖时间 和 登陆限制


新建立一个ASP文件 把 以下代码复制进去
<%
ip=request.ServerVariables("REMOTE_ADDR") '获取来访的IP地址
dim conn
set conn=server.CreateObject("ADODB.connection")
conn.open "Dbq="&server.MapPath("yb/dat/data.mdb")&";Driver={Microsoft Access Driver (*.mdb)}" '建立数据库连接 这里你可以自己改
sql="select * from ip_user where ip地址='"&ip&"'"
set rs=server.CreateObject("ADODB.recordset")
rs.open sql,conn,3,3
if rs.eof then
call ip_fir("thenew")
else
vistime=rs("访问时间")
if DateDiff("h",vistime,now)>=12 then
call ip_fir("theup")
else
call ip_notfir
end if
end if
%>
<%'--------------为了方便写成了过程形式:
Sub Ip_fir(action)'---------------------第一次访问的过程
response.write "12小时内,你是第一次访问本站,这里贴上加流量代码"
if action="theup" then
rs("访问时间")=now()
rs.update
elseif action="thenew" then
sql1="insert into ip_user(ip地址) values ('"&request.ServerVariables("REMOTE_ADDR")&"')"
conn.e ......

使用asp连接access2007注意事项

前几天在自己的笔记本上安装了OFFICE2007。今天做了一个百度友情链接检查的工具, 在连接ACCESS2007数据库的时候,使用的驱动代码为:"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("queryrecord.mdb") 。确发现提示:
Microsoft JET Database Engine 错误 ''80004005''
不可识别的数据库格式
但是以前没装OFFICE2007前建立好的数据库(以前用的ACCESS2003),使用这个代码可以正常运行。想了一想,估计是因为ACCESS2007的驱动代码已经发生变化。进入http://www.connectionstrings.com/(注意:该网站提供了现有所有数据库的连接方式,建议大家收藏该网址)一看,果真ACCESS2007的数据库连接方式已经发生变化。已经更改为:
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Persist Security Info=False;
于是更改了下代码,程序运行正常。
随后将代码更新至服务器http://baiduquery.newbooks.com.cn ,确发现程序还是不能运行,提示“驱动没有安装”,于是把驱动代码更改为microsoft.jet.oledb.4.0,提示“不可识别的数据库格式”,看来在本机建立的数据库为ACCESS2007的话,传到服务器 ......

使用asp连接access2007注意事项

前几天在自己的笔记本上安装了OFFICE2007。今天做了一个百度友情链接检查的工具, 在连接ACCESS2007数据库的时候,使用的驱动代码为:"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("queryrecord.mdb") 。确发现提示:
Microsoft JET Database Engine 错误 ''80004005''
不可识别的数据库格式
但是以前没装OFFICE2007前建立好的数据库(以前用的ACCESS2003),使用这个代码可以正常运行。想了一想,估计是因为ACCESS2007的驱动代码已经发生变化。进入http://www.connectionstrings.com/(注意:该网站提供了现有所有数据库的连接方式,建议大家收藏该网址)一看,果真ACCESS2007的数据库连接方式已经发生变化。已经更改为:
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Persist Security Info=False;
于是更改了下代码,程序运行正常。
随后将代码更新至服务器http://baiduquery.newbooks.com.cn ,确发现程序还是不能运行,提示“驱动没有安装”,于是把驱动代码更改为microsoft.jet.oledb.4.0,提示“不可识别的数据库格式”,看来在本机建立的数据库为ACCESS2007的话,传到服务器 ......
总记录数:617; 总页数:103; 每页6 条; 首页 上一页 [17] [18] [19] [20] 21 [22] [23] [24] [25] [26]  下一页 尾页
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号