web网站开发步骤（ASP版）

2025-10-09 23:29:27

1、一 ASP成功提交的过程

'过程名：WriteSuccessMsg

'作用：显示成功提示信息

'参数：无

'****************************************************

sub WriteSuccessMsg(SuccessMsg)

dim strSuccess

strSuccess=strSuccess & "<html><head><title>成功信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbcrlf

strSuccess=strSuccess & "<link href='style.css' rel='stylesheet' type='text/css'></head><body>" & vbcrlf

strSuccess=strSuccess & "<table cellpadding=2 cellspacing=2 border=0 width=400 class='border' align=center>" & vbcrlf

strSuccess=strSuccess & " <tr align='center'><td height='20' class='title'><strong>恭喜你！</strong></td></tr>" & vbcrlf

strSuccess=strSuccess & " <tr><td height='100' class='tdbg' valign='top'><br>" & SuccessMsg &"</td></tr>" & vbcrlf

strSuccess=strSuccess & " <tr align='center'><td class='title'><a href='javascript:history.back()'>【返回】</a></td></tr>" & vbcrlf

strSuccess=strSuccess & "</table>" & vbcrlf

strSuccess=strSuccess & "</body></html>" & vbcrlf

response.write strSuccess

end sub

2、二 ASP提交验证返回

if len(demo)=0 then

response.write"<center><font color=#ff0000 size=2>内容不能为空呀！</font></center>"

response.write"<center><font size=2><a href="http://www.gansutaoyan.cn" onclick=history.go(-1)>按这里返回</a></font></center>"

response.end

end if

或者

3、三提交完毕，关闭提交小窗口，刷新父窗口

alert("会议记录保存成功！");

window.opener.location.reload(); //刷新父窗口中的网页

window.close();//关闭当前窗窗口

</script>

4、四 ASP登陆存储过程

TABLE cellSpacing=0 cellPadding=0 width=663 align=center border=0>

<TBODY>

<TR>

<!--

function goFtpSite() {

document.location.href = "ftp://" + document.ftp.login.value + ":" + document.ftp.password.value + "@" + document.ftp.url.value;

}

//-->

</SCRIPT>

<STRONG><FONT color=#ff9966>用IE登录FTP服务器。</FONT></STRONG>

<TBODY>

<TR>

<TBODY>

<TD align=right width=75><FONT face=arial,helvetica color=#008080 size=-1>UserName: </FONT></TD>

<TD width=193><FONT face=arial,helvetica size=-1><INPUT style="BORDER-RIGHT: #0099ff 1px solid; BORDER-TOP: #0099ff 1px solid; BORDE

R-LEFT: #0099ff 1px solid; BORDER-BOTTOM: #0099ff 1px solid" maxLength=20 size=15 name=login> </FONT></TD></TR>

<TD align=right width=75><FONT face=arial,helvetica color=#008080 size=-1>Password: </FONT></TD>

5、五，ASP网页获取地址的转换方法

file1=request("flvpath")

file2="/hlxy/jpkc" & file1

六 COPY页面内容，自动在后面加上网站信息，利于SEO.txt

</script

6、七提交成功页面跳转

response.write "<script language='javascript'>"

response.write "alert('密码修改成功。');"

response.write "location.href='server.asp';"

response.write "</script>"

7、八， bottom样式

.btn{background:#A6CBE7;color:#004c7d;border-width:1px;padding-left:15px;padding-right:15px;vertical-align:middle}

8、九，ASP连接数据库大全

dim dbkillSql,killSqlconn,connkillSql

dbkillSql="SqlIn.mdb"

’On Error Resume Next

Set killSqlconn = Server.CreateObject("ADODB.Connection")

connkillSql="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbkillSql)

killSqlconn.Open connkillSql

If Err Then

err.Clear

Set killSqlconn = Nothing

Response.Write "数据库连接出错，请检查连接字串。"

Response.End

End If

dim conn,connstr

on error resume next

connstr="dbq="+server.mappath("#oyaya#news_data/oyaya.cn_news#data.mdb")+";defaultdir=;driver={microsoft access driver (*.mdb)};"

set conn=server.createobject("adodb.connection")

conn.open connstr

option explicit

response.Buffer=true

dim conn

dim db

db="/OA_System.mdb"

set conn=server.CreateObject("ADODB.Connection")

conn.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & server.MapPath(db)

sub closeconn()

conn.close()

set conn=nothing

end sub

im db

set db=server.createobject("Adodb.Connection")

db.open "Dbq=" & server.mappath("data/bbs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

9、十关于SPLIT拆封

dim names

dim splitvalue

names=request.form("receiveman")

splitvalue=split(names,",")

if ubound(splitvalue)<>1 then

exit function

end if

取a

left(splitvalue,1)

取b

right(splitvalue,1)

10、十一

response.write输出超链接

　　response.Write"<a href='worker_login.asp'>"&"新员工注册"&"</a>"

11、十二

让表格中内容自动换行：

word-break: break-all

12、十三

解决了“BOF或EOF中有一个是"真”的错误

if not rs3.eof then

receivename=rs3("name")

end if

解决了“BOF或EOF中有一个是"真”的错误

Access:数值型，不加引号;字符型，加引号;日期型，加#号

Sql Server:数值型，不加引号，加引号也不错；字符型、日期型均加引号

13、十四

response.write left(trim(rs()),10)

解释

rs()是读取数据库表某一字段值；

trim()是去除其括号里一段字符串左右两边的空格；

left(***,10)表示取其括号里＊＊位置的字符串的左10个字符.

14、十五

set rs=conn.execute(sql) 和 conn.execute(sql) 有什么区别啊

悬赏分：10 - 解决时间：2007-9-26 09:03

set rs=conn.execute(sql) 和 conn.execute(sql) 有什么区别啊

我知道

set rs=conn.execute(sql) 是需要占内存的

而 conn.execute(sql)好象不怎么占内存

那为什么又要有

set rs=conn.execute(sql)是不是在查询的时候就一定要用

set rs 不太明白

解释

如果你要使用select语句就用set rs的

如果用update和delete或者insert的话就用后一个

也就是说要用到查询结果的就用set rs，如果只是对数据库进行更新等操作就不用设置结果集了

注释：当看到 conn.execute(sql)的时候才运行 sql语句

Set rs=conn.Execute(SQL)"和"rs.open SQL,conn,A,B"的区别

前一种方式：

通过执行sql，返回后得到记录集，比较简单地得到经过筛选过的记录集，但是通过这种方式得到的记录集，不能进行分页显示。

后一种方式：

打开的记录可以进行分页显示，但这种方式打开的记录集不能排序。

总结一下：

1、方式1，可以通过sql语句，方便地筛选你想要的记录。

2、方式2，功能比较强大，但比较复杂。

15、十六

在浏览或制作网页过程中经常用到新建浏览窗口。而新建窗口也有很多种变换方式，只

要我们合理使用，可以让自己制作的网页更酷，下面让我们来看一看。

自动弹出窗口

在浏览一些网站时，我们常见到在打开首页文件的同时，会自动弹出另外一个窗口网页

，这个网页一般都是一些公告、广告类的内容，它是怎样做出来的呢？实际上这些都是

JavaScript代码的功劳。

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。