Luke’s ideas!记录人生点点滴滴luke’s blog

最近公司分给个任务，让写一个留言板！那功能够变态的，可以算上一个小型的论坛了！我是这么认为的！给大家截张图看看吧！有图才有真相嘛！呵呵！汗，图上传不了，上文字吧！

留言板规划
1， 留言板页面需延续现网站页面设计风格
2， 游客可浏览所有开放内容（非锁定）
3， 留言版现不进行分类，可能将来会添加分类，程式设置上是否可预留
全文阅读 »

今天实现了采集，也知道采集是怎么回事了！呵呵！

<%
Function getHTTPPage(url)
dim objXML
set objXML=server.createobject(“MSXML2.XMLHTTP”)’定义
objXML.open “GET”,url,false’打开
objXML.send()’发送
If objXML.readystate<>4 then ‘判断文档是否已经解析完，以做客户端接受返回消息
exit function
End If
getHTTPPage=BytesToBstr(objXML.responseBody)’返回信息，同时用函数定义编码
set objXML=nothing’关闭
if err.number<>0 then err.Clear
全文阅读 »

帮客户做网站的时候，看到翻页的样式不怎么喜欢！查点资料修改下吧！！下面是步骤：
列表页翻页简单修改

1、打开/page/system/fun.asp

2、搜索到function pagelist(l1,l2,l3,l5)

3、找到下面的内容替换

1 … 即2689行 替换为首页
‹‹ 即 2692 ，2693行 &lsaquo;&lsaquo; 替换为上一页(有两处)
›› 即2710行 &rsaquo;&rsaquo;替换为下一页
… “&l3&” 即 2710行 替换为尾页

上面链接数据库什么的，我就不在这里啰嗦了！直接上代码了！
Sub outSort(sortid,number)
Dim rs,sql,i
For i = 1 To number
nbsp = nbsp&”&nbsp; &nbsp; ”
Next
Set rs = conn.execute(“SELECT * FROM [sort] WHERE [sortid]=”&sortid)
Do Until Rs.eof
全文阅读 »

<%
function csPage(id,all,url1,url2)
if id<>1 then tmp=”<a href=”"”&url1&”1″&url2&”"”>首页</a> <a href=”"”&url1&id-1&url2&”"”>上一页</a> ”
istart=((id-1)\10)*10+1
if(all-id)>9 then
iend=((id-1)\10)*10+10
全文阅读 »

SQL 连接方法:
方法一:系统DSN连接

<%  
Set Conn = Server.CreateObject("ADODB.Connection")   
Conn.Open "FILEDSN=mydsn.dsn" 
%> 

全文阅读 »

<%
‘申明变量
Dim valName
Dim arrName
Dim objConn
Dim
connStr

If Request.Form(“mySubmit”) = “确定” Then

‘数据库链接代码
set
objConn=server.CreateObject(“ADODB.connection”)
connStr =
“PROVIDER=SQLOLEDB;Server=(local);DATABASE=test;UID=sa;PWD=123456;”

objConn.Open connstr
全文阅读 »

作为微软推出的网页与数据库解决方案，ASP由于有微软得天独厚的操作系统等技术后盾支持，因此得到了迅速的发展，并且正受到越来越多的欢迎，在目前在电子商务网站的建设中有很多都使用ASP来编写程序。

　　近来有很多的读者向我们咨询学习ASP的方法和在学习中遇到的一些问题，其中有一些是初学者经常遇到和面临的问题。为了让读者在学习ASP的过程中加深对ASP的了解，并能够有效地解决遇到的问题，我们特别收集了比较有代表性的一些问题，在此列举出来并一一给予解答，希望能在这有限的篇幅里为你学习ASP助一臂之力。

　　1、问题：ASP是一种编程语言吗？
全文阅读 »

<%
Function validate(ByVal str,ByVal number)
Dim temp,reg
Set reg = new regexp
reg.ignorecase=true
reg.global=true
全文阅读 »