<%
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("会员中心页面") ,如果空,仍然在登录页面,提示登录不成功。 ......
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 ......
在我开发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
......
在我开发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加密解密
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文件 把 以下代码复制进去
<%
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 ......
前几天在自己的笔记本上安装了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的话,传到服务器 ......
前几天在自己的笔记本上安装了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的话,传到服务器 ......