ASP数据库简单操作教程(1)
发表于：2006年12月2日 21时4分35秒来源：阅读(1)评论(0) 举报本文链接：http://user.qzone.qq.com/295361921/blog/25
修改记录的E-mail：
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")
ID = 1
usermail = ""
sql = "update data set usermail='"&usermail&"' where ID="&CInt(ID)
conn.Execute(sql)
conn.Close
Set conn = Nothing
说明：建立数据库连接；获取记录ID、新 E-mail 字符串；使用 update 语句修改记录；conn.Execute 来执行；最后关闭。
如果使记录的查看值加1，则
四位数字验证码生成
发表于：2007年5月26日 12时43分50秒来源：阅读(1)评论(0) 举报本文链接：http://user.qzone.qq.com/295361921/blog/51
四位数字验证码生成
<%
dim yz
randomize timer
yz=Int((8999)*Rnd +1009)
%>
本文标签：
datalink2
发表于：2006年11月25日 6时34分43秒来源：阅读(1)评论(0) 举报本文链接：http://user.qzone.qq.com/295361921/blog/19
datalink2
****选择最新的10个记录：sql = "select top 10 * from data order by ID desc"
SQL 语句已经知道了，不过在Web应用时，还得创建一个 RecordSet 对象得到记录集，才能把从数据库里取出的值应用在网页上，如果现在将所有的记录显示在网页上就这样：
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")
sql = "select * from data"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
Do While Not rs.Eof
Response.Write "<p>姓名："& rs("username") &" E-mail："& rs("usermail") &" 查看："& rs("view") &"次 "& rs("indate") &"加入</p>"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
说明：建立数据库连接；创建 rs 得到记录集；循环显示记录，rs.Eof 表示记录末，rs.MoveNext 表示移到下一个记录；最后关闭。
css风格
发表于：2007年8月11日 23时2分0秒来源：阅读(1)评论(0) 举报本文链接：http://user.qzone.qq.com/295361921/blog/120
css风格
<!--此代码由建站学:www.jzxue.com提供-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" c />
<title>css网页表格-建站学-www.jzxue.com</title>
<style type="text/css">
* {
margin:0;
padding:0;
font-size:12px;
color:#000;
}
#table {
width:405px;
margin:50px auto;
}
#table li,#table li.header {
list-style-type:none;
width:100px;
height:30px;
line-height:30px;
text-align:center;
float:left;
margin-left:1px;
margin-bottom:1px;
background:#ccc;
}
#table li.header {
background:#999;
}
</style>
</head>
<body>
<ul id="table">
<li class="header">第一列</li>
<li class="header">第二列</li>
<li class="header">第三列</li>
<li class="header">第四列</li>
<li>数据1-1</li>
<li>数据1-2</li>
<li>数据1-3</li>
<li>数据1-4</li>
<li>数据2-1</li>
<li>数据2-2</li>
<li>数据2-3</li>
<li>数据2-4</li>
<li>数据3-1</li>
<li>数据3-2</li>
<li>数据3-3</li>
<li>数据3-4</li>
<li>数据4-1</li>
<li>数据4-2</li>
<li>数据4-3</li>
<li>数据4-4</li>
</ul>
</body>
</html>
ip地址不重复地原理
发表于：2007年5月26日 12时43分0秒来源：阅读(1)评论(0) 举报本文链接：http://user.qzone.qq.com/295361921/blog/50
ip地址不重复地原理
<%dim options,total,sql,i,answer
if request.QueryString("stype")="" then
if Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then
response.write"<SCRIPT language=JavaScript>alert('感谢您的支持，您已经投过票了，请勿重复投票，谢谢！');"
response.write"javascript:window.close();</SCRIPT>"
else
opti.form("options")
response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
conn.execute("update shop_toupiao set answer"&options&"=answer"&options&"+1 where IsChecked=1")
end if
end if
%>
datalink
发表于：2006年11月25日 6时28分51秒来源：阅读(1)评论(0) 举报本文链接：http://user.qzone.qq.com/295361921/blog/18
datalink
方法1：
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")
方法2：
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")
<%
set rs=server.CreateObject("adodb.recordset") (建立recordset对象)
sqlstr="select * from message" ---->(message 为数据库中的一个数据表，即你要的数 据所存放的数据表)
rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)
rs.movefirst ---->(将指针移到第一条记录)
while not rs.eof ---->(判断指针是否到末尾)
response.write(rs("name")) ---->(显示数据表message中的name字段)
rs.movenext ---->(将指针移动到下一条记录)
wend ---->(循环结束)
------------------------------------------------------
rs.close
conn.close 这几句是用来关闭数据库
set rs=nothing
set c
-------------------------------------------------------
%>
serverVariables
<%
For Each Item In Request.ServerVariables
Response.Write("<p><b>" & item & "</b>")
Response.Write(Request.ServerVariables(item))
next
%>
datachange
发表于：2006年11月25日 6时44分50秒来源：阅读(1)评论(0) 举报本文链接：http://user.qzone.qq.com/295361921/blog/20
datachange
修改（更新）数据库记录
修改记录的E-mail：
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")
ID = 1
usermail = ""
sql = "update data set usermail='"&usermail&"' where ID="&CInt(ID)
conn.Execute(sql)
conn.Close
Set conn = Nothing
说明：建立数据库连接；获取记录ID、新 E-mail 字符串；使用 update 语句修改记录；conn.Execute 来执行；最后关闭。
如果使记录的查看值加1，则
execute
发表于：2006年11月25日 1时53分23秒来源：阅读(1)评论(0) 举报本文链接：http://user.qzone.qq.com/295361921/blog/17
execute
---------------------------------execute.asp---------------
<" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" c>
<title>execute</title>
</head>
<body>
<%
server.execute "jump.asp"
%>
<p align="center" >现在返回了study1.asp了？答案：是的长官！</p>
</body>
</html>
-----------------------------jump.asp---------------------------------
<div align="center"></div>
<%
for i=1 to 1000
response.write i& "__我爱你<br>"
next
%>
tansfer
发表于：2006年11月25日 1时48分6秒来源：阅读(1)评论(0) 举报本文链接：http://user.qzone.qq.com/295361921/blog/14
tansfer
----------------------------------transfer.asp------------------------
<" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" c>
<title>transfer</title>
</head>
<body>
<form name="myform" method="post" action="study1.asp">
<p>username:
<label>
<input type="text" name="username">
</label>
</p>
<p>password:
<label>
<input type="password" name="password">
</label>
</p>
<p>
<label>
<input type="submit" name="button1" value="submit">
</label>
<label>
<input type="reset" name="button2" value="reset">
</label>
</p>
</form>
</body>
</html>
-----------------------------------------------study1.asp------------------------------------
<" CODEPAGE="936"%>
<%
dim user
dim pass
user=request.Form("username")
pass=request.Form("password")
if user="" or pass="" then
server.transfer "study.asp"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" c>
<title>login</title>
</head>
<body>
Welcome to come here ,your username is <%=user %>and your password is <% =pass %><br>
</body>
</html>
buffertrueandfalse
发表于：2006年11月25日 1时35分6秒来源：阅读(2)评论(0) 举报本文链接：http://user.qzone.qq.com/295361921/blog/10
buffertrueandfalse
----------------------------buffertrue.asp-------------------------------
<" CODEPAGE="936"%>
<% response.buffer=true %>
<html>
<head>
<meta http-equiv="Content-Type" c>
<title>true</title>
</head>
<%
starttime=timer
for i=1 to 10000
response.write i & space(6)
if i mod 20 =0 then
response.write"<br>"
end if
next
endtime=timer
interver=endtime-starttime
response.write"<b>花费的时间是："& interver &"秒。</b>"
%>
<body>
</body>
</html>
----------------------------buffe***lse.asp-------------------------------
<" CODEPAGE="936"%>
<% response.buffe*=**lse %>
<html>
<head>
<meta http-equiv="Content-Type" c>
<title>false</title>
</head>
<%
starttime=timer
for i=1 to 10000
response.write i & space(6)
if i mod 20 =0 then
response.write"<br>"
end if
next
endtime=timer
interver=endtime-starttime
response.write"<b>花费的时间是："& interver &"秒。</b>"
%>
<body>
</body>
</html>
说明：其实上面的两个页面没有大的区别，只是在<% response.buffer=true/false%>设置
上不一样，但在运行的时候，却有质的区别，这就是使用缓存的好处！------紧记哟！嘿嘿……
返回服务器的驱动盘
发表于：2007年5月26日 12时38分32秒来源：阅读(1)评论(0) 举报本文链接：http://user.qzone.qq.com/295361921/blog/44
返回服务器的驱动盘
dim objfilesys
dim mydrives
set objfilesys=server.CreateObject("scripting.filesystemobject")
set mydrives=objfilesys.drives
for each drive in mydrives
response.Write"驱动盘："&drive.driveletter&"<br>"
next
是否存在某中字符
发表于：2007年6月3日 18时9分53秒来源：阅读(1)评论(0) 举报本文链接：http://user.qzone.qq.com/295361921/blog/62
是否存在某中字符
<%
If Request.Form("submit") = "确定" Then
str = Request.Form("string")
Letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
length = Len(str)
i = 1
While i<length+1
checkchar = UCase(Mid(str,i,1))
If (InStr(Letters,checkchar)<=0) Then
Response.Write("<script>alert('输入的字符串中存在非字符')</script>")
Response.End
End If
i = i+1
Wend
End If
%>
fso(文件删除)
dim fso
set fso=server.CreateObject("scripting.filesystemobject")
fso.deletefile server.MapPath(path)
指定目录中增加更深一级的目录
dim path1
dim path2
dim objfilesys
path1="d:\asp"
path2="d:\asp\"
set objfilesys=server.CreateObject("scripting.filesystemobject")
response.Write objfilesys.buildpath(path1,"myweb")&"<br>"
response.Write objfilesys.buildpath(path1,"\myweb")&"<br>"
response.Write objfilesys.buildpath(path2,"myweb")&"<br>"
response.Write objfilesys.buildpath(path2,"\myweb")&"<br>"
'这四种的结果都一样的，说明了，加上“\”和不加上“\”都一样的，结果都将返回正确的路径！
用时间做文件名
function makefilename()
dim fname
fname = now()
fname = trim(fname)
fname = replace(fname,"-","")
fname = replace(fname,"/","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
makefilename=fname
end function
搜索
<% set rs=server.createobject("ADODB.Recordset")
rs.open "SELECT*FORM list where title and word like '%'&request.form("word")&"%'",MyCon,adOpenStatie
%>
删除数据
发表于：2007年5月26日 12时52分34秒来源：阅读(1)评论(0) 举报本文链接：http://user.qzone.qq.com/295361921/blog/58
删除数据
set c.CreateObject("adodb.connection")
conn.c&server.MapPath("db1.mdb")
conn.open
sql="select * from db2 where name='"&name&"' "
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.update
修改记录的E-mail：
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")
ID = 1
usermail = ""
sql = "update data set usermail='"&usermail&"' where ID="&CInt(ID)
conn.Execute(sql)
conn.Close
Set conn = Nothing
说明：建立数据库连接；获取记录ID、新 E-mail 字符串；
使用 update 语句修改记录；conn.Execute 来执行；最后关闭。
如果使记录的查看值加1，
则：sql = "update data set view=view+1 where ID="&CInt(ID)
删除某一条记录：
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")
ID = 1
sql = "delete from data where ID="&CInt(ID)
conn.Execute(sql)
conn.Close
Set conn = Nothing
<%
set c.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
exec="delete * from guestbook where 编号="&request.form("id")
conn.execute exec
%>
输入输出面板
最长的是并行接口，短的上面的是串行接口，另一个则是游戏/MIDI接口
并行接口：并行接口又称并口，即LPT接口，这是一种25针的D形接口。并行接口主要
用于连接打印机，因此又称为打印机接口。不过，少数游戏控制器也可以通过并行接
口连接到主机。
串行接口：串行接口又成串口，即COM接口，它是一种9针的D形接口。老式鼠标、调制
解调器大多通过串行接口连接到主机。串行接口如今已经很少使用，一些新出厂的主机
甚至取消了串行接口。
游戏/MIDI接口：你可以通过这个接口来连接玩游戏所使用的遥杆、游戏手柄、方向盘。
对于那些搞数字的玩家，还可以通过这个接口来连接MIDI装置，以括充计算机的多媒体
功能。
自学的点点滴滴
发表于：2008年3月15日 13时36分25秒来源：阅读(0)评论(0) 举报本文链接：http://user.qzone.qq.com/295361921/blog/1205559385
自学的点点滴滴
<textarea style="display:none" name="content" ></textarea><iframe ID="eWebEditor1" src="edit/ewebeditor.asp?id=content&style=standard" frameborder="0" scrolling="no" width="548" HEIGHT="300"></iframe>
< import="huyang.mdb.linkcon"%>
< import="java.sql.*"%>
<%linkcon check=new linkcon();%>
<%
ResultSet r=check.getrs("select * from pic_table");
while (r.next())
{
%>
<%=r.getString(1)%>
<%}%>
JAVA运行环境
配置环境变量：
Java_HOME: D:\jdk1.5.0
PATH: D:\jdk1.5.0\bin;
CLASSPATH: .;D:\jdk1.5.0\lib\tools.jar;
D:\jdk1.5.0\jre\lib\rt.jar;
<%= (new java.util.Date()).toLocaleString() %>
<%= new java.util.Date() %>
javascript脚本中的内函数：
返回字符串表达式中的值
test=eval("8-9*65")；
返回字符串ASCII码
unEscape(string)；
返回字符串的编码
escape(character);
返回实数
parseFloat(floustring);
返回不同进制的数
parseInt(numberstring,rad.X);
import java.sql.*;
public class jdbc{
public static void main(String args[]){
String jdbcdriver="sun.jdbc.odbc.JdbcOdbcDriver";
String jdbcurl="jdbc:odbc:mysql";
try{
Class.forName(jdbcdriver);
Connection con=DriverManager.getConnection(jdbcurl);
Statement stmt=con.createStatement();
ResultSet rs=stmt.executeQuery("select * from student");
System.out.println("-----------------------------------");
while(rs.next()){
System.out.println("序号："+rs.getString(1)+"\b");
System.out.println("姓名："+rs.getString(2)+"\b");
System.out.println("性别："+rs.getString(3)+"\b");
System.out.println("言语："+rs.getString(4)+"\b");
System.out.println();
}
rs.close();
stmt.close();
con.close();
System.out.println("-----------------------------------");
System.out.println("Test Database OK!");
}catch(ClassNotFoundException e){
System.out.println("未找到要加载的驱动类");
}catch(SQLException e){
System.out.println("SQL错误提示："+e);
}
}
}
<SCRIPT LANGUAGE="javascript">
<!--
window.open ('http://gra.ahu.edu.cn/yzb/123456789.htm', 'newwindow','height=100,width=300,top=10,left=10,toolbar=no,menubar=no,scrollbars=no,resizable=no,location=no,status=no')
-->
</SCRIPT>
int number=Math.abs(new Random().nextInt()%10+1;
1-10 number
简单的JavaBean实例
package brj.jsp;
public class MsgBox {
public String message="noMessage";
public String getMessage(){
return message;
}
public void setMessage(String message){
this.message=message;
}
}
.jsp页面需要输出的信息
< import="brj.jsp.MsgBox"%>
<%MsgBox Msg=new MsgBox();%>
<%!String me="Hello";%>
<%Msg.setMessage(me);%>
<%=Msg.getMessage()%>
package brj.jsp;
import java.sql.*;
public class GetConn {
//==============================================
String sDBDriver = "sun.jdbc.odbc.JdbcOdbcDriver";
String sConnStr = "jdbc:odbc:jsp";
Connection conn = null;
ResultSet rs = null;
Statement stmt=null;
//==============================================
public GetConn() {
try {
Class.forName(sDBDriver);
}
catch(java.lang.ClassNotFoundException e) {
System.err.println("GetConn(): " + e.getMessage());
}
}
//==============================================
public ResultSet read(String sql) {
rs = null;
try {
conn = DriverManager.getConnection(sConnStr);
stmt = conn.createStatement();
rs = stmt.executeQuery(sql);
}
catch(SQLException ex) {
System.err.println("read(String sql): " + ex.getMessage());
}
return rs;
}
//==============================================
public void closeStmt(){
try{
stmt.close();
}
catch(SQLException e){
e.printStackTrace();
}
}
//==============================================
public void closeConn(){
try{
conn.close();
}
catch(SQLException e){
e.printStackTrace();
}
}
//==============================================
}
没事写个小探针玩，因为只能嵌在blog等里面所以这个只是得到用户的信息，等我以后在写一个功能强大的探针。
代码如下：
<%@ page contentType="text/html;charset=gb2312"%>
<%@ page import="java.util.*"%>
http协议版本:
<%=request.getProtocol()%>
<%
String Agent = request.getHeader("User-Agent");
StringTokenizer st = new StringTokenizer(Agent,";");
st.nextToken();
String userbrowser = st.nextToken();
String useros = st.nextToken();
useros = useros.substring(0,useros.length());
String gzip = request.getHeader("Accept-Encoding");
if(gzip.indexOf("gzip")<0)
{
gzip = "不支持";
}
else
{
gzip = "支持";
}
%>
您所使用的操作系统:
<%=useros%>
您所使用的浏览器:
<%=userbrowser%>
您的机器是否支持gzip压缩传输:
<%=gzip%>
您的ip地址:
<%=request.getRemoteAddr()%>
放在一个支持jsp的空间里，在想要引用的界面上写：
<IFRAME SRC="http://XXX.XX.jsp" width="220" height="200" frameborder="0" scrolling="No" >
</IFRAME>
onClick="return confirm('?');"
<%
//后台登陆代码
Statement stmt_Check=conn.createStatement(ResultSet.TYPE_SCROLL_SENSITIVE,ResultSet.CONCUR_UPDATABLE);
String sql = "select * from tAdmin where fPassword='"+ UserPwd + "' and fUserName='" + UserName +"'";
ResultSet RsLoginCheck = stmt_Check.executeQuery(sql);
if(RsLoginCheck.next())
{
if(rand.equals(CheckCode))
{
//out.print("成功");
session.setAttribute("AdminName",UserName);
response.sendRedirect("Manage.jsp");
}
else
{
out.print("您输入的确认码和系统产生的不一致，请重新输入。");
}
}
else
{
out.print("用户名或密码错误！！！");
}
%>
CheckCode.jsp
<%@ page contentType="image/jpeg" import="java.awt.*,java.awt.image.*,java.util.*,javax.imageio.*" %>
<%!
Color getRandColor(int fc,int bc){//给定范围获得随机颜色
Random random = new Random();
if(fc>255) fc=255;
if(bc>255) bc=255;
int r=fc+random.nextInt(bc-fc);
int g=fc+random.nextInt(bc-fc);
int b=fc+random.nextInt(bc-fc);
return new Color(r,g,b);
}
%>
<%
//设置页面不缓存
response.setHeader("Pragma","No-cache");
response.setHeader("Cache-Control","no-cache");
response.setDateHeader("Expires", 0);
// 在内存中创建图象
int width=60, height=20;
BufferedImage image = new BufferedImage(width, height, BufferedImage.TYPE_INT_RGB);
// 获取图形上下文
Graphics g = image.getGraphics();
//生成随机类
Random random = new Random();
// 设定背景色
g.setColor(getRandColor(200,250));
g.fillRect(0, 0, width, height);
//设定字体
g.setFont(new Font("Times New Roman",Font.PLAIN,18));
//画边框
//g.setColor(new Color());
//g.drawRect(0,0,width-1,height-1);
// 随机产生155条干扰线，使图象中的认证码不易被其它程序探测到
g.setColor(getRandColor(160,200));
for (int i=0;i<155;i++)
{
int x = random.nextInt(width);
int y = random.nextInt(height);
int xl = random.nextInt(12);
int yl = random.nextInt(12);
g.drawLine(x,y,x+xl,y+yl);
}
// 取随机产生的认证码(4位数字)
String sRand="";
for (int i=0;i<4;i++){
String rand=String.valueOf(random.nextInt(10));
sRand+=rand;
// 将认证码显示到图象中
g.setColor(new Color(20+random.nextInt(110),20+random.nextInt(110),20+random.nextInt(110)));//调用函数出来的颜色相同，可能是因为种子太接近，所以只能直接生成
g.drawString(rand,13*i+6,16);
}
// 将认证码存入SESSION
session.setAttribute("rand",sRand);
// 图象生效
g.dispose();
// 输出图象到页面
ImageIO.write(image, "JPEG", response.getOutputStream());
%>
调用方式：
<img src="CheckCode.jsp" border="0" alt="验证码,看不清楚?请点击刷新验证码" style="cursor : pointer;" onclick="this.src='CheckCode.jsp'"/>
引用方式：
String rand = (String)session.getAttribute("rand");
直接连接Access数据库，不需要设置数据源
String spath="/jj/qqq/DataBase/#data.mdb";
String dbpath = application.getRealPath(spath); //转化成物理路径
String dbname = ""; //Acess 数据库用户名，没有则为空
String user = ""; //Acess 数据库密码，没有则为空
//数据库连接字符串
String url ="jdbc:odbc:Driver={Microsoft Access Driver (*.mdb)};DBQ="+dbpath;
//加载驱动程序
Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");
//建立连接
Connection conn= DriverManager.getConnection(url);
// **** 数据库连接代码 结束 *********
添加代码：
<%
String username=new String(request.getParameter("username").getBytes("iso-8859-1"));
String password=new String(request.getParameter("password").getBytes("iso-8859-1"));
String email=new String(request.getParameter("email").getBytes("iso-8859-1"));
String spath="/jj/test/jspstudy.mdb";
String dbpath = application.getRealPath(spath);
String dbname = "";
String user = "";
String url ="jdbc:odbc:Driver={Microsoft Access Driver (*.mdb)};DBQ="+dbpath;
Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");
Connection conn= DriverManager.getConnection(url);
Statement stmt_add=conn.createStatement();
String sql_add="insert into guestbook(username,password,email)values('"+username+"','"+password+"','"+email+"')";
int cg=stmt_add.executeUpdate(sql_add);
if (cg>0)
{
out.print("<p align='center'>添加成功</p>");
}else{
out.print("<p align='center'>添加不成功</p>");
}
out.println("<script>self.location='test1.jsp';</script>");
%>
更新代码：
<%
String id=request.getParameter("id");
String username=new String(request.getParameter("username").getBytes("iso-8859-1"));
String password=new String(request.getParameter("password").getBytes("iso-8859-1"));
String email=new String(request.getParameter("email").getBytes("iso-8859-1"));
Statement stmt_U=conn.createStatement();
String sql_U="update guestbook set username='"+username+"',password='"+password+"',email='"+email+"' where id="+id;
int cg=stmt_U.executeUpdate(sql_U);
if (cg>0)
{
out.print("<p align='center'>修改成功</p>");
}else{
out.print("<p align='center'>修改不成功</p>");
}
out.println("<script>self.location='test1.jsp';</script>");
%>
删除代码：
if (request.getParameter("id") !=null )
{
String id=request.getParameter("id");
Statement stmt_del=conn.createStatement();
String sql_del="delete from guestbook where id=" + id ;
int cg=stmt_del.executeUpdate(sql_del);
if (cg>0)
{
out.print("<p align='center'>栏目成功删除</p>");
}else{
out.print("<p align='center'>栏目未删除</p>");
}
stmt_del.close();
}
response.sendRedirect("test1.jsp");
%>
删除记录
发表于：2007年6月3日 18时9分9秒来源：阅读(2)评论(0) 举报本文链接：http://user.qzone.qq.com/295361921/blog/61
删除记录
set c.CreateObject("adodb.connection")
conn.c&server.MapPath("db1.mdb")
conn.open
sql="select * from db2 where name='"&name&"' "
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.update
修改记录的E-mail：
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")
ID = 1
usermail = ""
sql = "update data set usermail='"&usermail&"' where ID="&CInt(ID)
conn.Execute(sql)
conn.Close
Set conn = Nothing
说明：建立数据库连接；获取记录ID、新 E-mail 字符串；
使用 update 语句修改记录；conn.Execute 来执行；最后关闭。
如果使记录的查看值加1，
则：sql = "update data set view=view+1 where ID="&CInt(ID)
删除某一条记录：
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")
ID = 1
sql = "delete from data where ID="&CInt(ID)
conn.Execute(sql)
conn.Close
Set conn = Nothing
<%
set c.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
exec="delete * from guestbook where 编号="&request.form("id")
conn.execute exec
%>
邮件格式的验证
发表于：2007年6月3日 18时46分18秒来源：阅读(1)评论(0) 举报本文链接：http://user.qzone.qq.com/295361921/blog/70
邮件格式的验证
<%
If Request.Form("submit") = "确定" Then
email = Request.Form("Email")
names = Split(email,"@")
If UBound(names)<>1 Then
Response.Write("<script>alert('邮件格式错误！')</script>")
Response.End
End If
For each name in names
If Len(name)<=0 Then
Response.Write("<script>alert('邮件格式错误！')</script>")
Response.End
End If
Next
End If
%>
upfile.asp
发表于：2007年5月26日 12时40分18秒来源：阅读(1)评论(0) 举报本文链接：http://user.qzone.qq.com/295361921/blog/46
upfile.asp
<%OPTION EXPLICIT%>
<%Server.ScriptTimeOut=5000%>
#include FILE="upload_5xsoft.inc"（记得这少了什么东西的哟！）
<%
''将当前的日期和时间转为文件名
function makefilename()
dim fname
fname = now()
fname = trim(fname)
fname = replace(fname,"-","")
fname = replace(fname,"/","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
makefilename=fname
end function
dim upload,file,formName,formPath
dim i,l,fileType,newfilename,filenamelist
'创建新文件名称
newfilename = makefilename()
'建立上传对象
set upload=new upload_5xsoft
'上传文件目录
formPath = Server.mappath("images")&"/"
'列出所有上传了的文件
for each formName in upload.objFile
'生成一个文件对象
set file=upload.file(formName)
'如果 FileSize > 0 说明有文件数据
if file.FileSize>0 then
'取得文件扩展名
fileType = file.FileName '文件名以及扩展名
i = instr(fileType,".") '是否存在“.”
l = Len(fileType)
if i>0 then
fileType = Right(fileType,l-i+1) '得到扩展名
end if
newfilename = newfilename & fileType
filenamelist = formPath&newfilename '新文件绝对地址和名称
file.SaveAs filenamelist ''保存文件
end if
set file=nothing
next
'将文件信息传入内容字段
response.write "<font style='font-family: 宋体; font-size: 9pt'>文件上传成功 [ <a href=# .go(-1)>继续上传</a> ]</font>"
set upload=nothing ''删除此对象
%>
<br>
<br>
下面是上传的图片文件:<br>
<br>
<img border="0" src="images/<%=newfilename %>">