小叶白龙 博客

解决方案：用户 'sa' 登录失败。原因: 未与信任 SQL Server 连接相关联

<a href="javascript:history.go(-1)">返回上一页</a>
<a href="javascript:location.reload()">重载页面，本地刷新</a>
<a href="javascript:history.go(-1);location.reload()">返回上一页重载页面，本地刷新</a>

在注册表的HKEY_CLASSES_ROOT中找到Microsoft.XMLHTTP键,右键查看权限看有users的读取权限没有,如果没有把users的读权限加上.

 

<script type=text/javascript src=http://fw.qq.com/ipaddress></script> 

<script type=text/javascript> 
document.write(IPData[3]); 
</script>

天气预报数据源

天气预报数据源测试
http://m.weather.com.cn/data/101280601.html 深圳
http://m.weather.com.cn/data/101240601.html 吉安

天气预报数据源获取
http://m.weather.com.cn/data/101240601.html

这里，101240601即为城市id

topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0"
上段代码不兼容火狐
可用下段代码替换
 

只要是JS文件，都可以通过被恶意修改从而被挂上恶意代码，一般被全站引用的JS代码最容易被挂木马，检测我们可以查看JS代码的左边或下边，坏人很喜欢将恶意代码与正常代码间用很多空格或回车来进行隐藏，所以要多看看JS代码页面有没有被故意拉长等。

作者使用Access数据库制作的网站，后来发现数据量增加，速度慢，所以大家在做网站之前一定要长远打算。

Access数据库到底能有多少条记录？，Accsee的文件大小最大能有多大？

理论上是没有限制的，但是，一般10万以上就不好用了。

access对大数据量不是支持很好，mdb文件最大的到1G就不行了，然后随便你怎么添加记录都没用，不会出错也不会有提示，但数据是加不进去了。具体的记录数则要看记录的大小了。我是十几个字段的记录，大约有50万条记录就变成这样了。

用Asp创建日志文件这个例子使用文本文件来写入用户的信息创建一个logfile.asp放在每一个asp的页面的顶端<!--#Include File="LogFile.asp"-->当有人来访问你的站点logfile.asp自动把他的信息写入LogFile.txt,如果相关的URl一样的话则不写入文件
File: LogFile.asp
代码如下:

下面分享常用的Asp编程代码：

1.如何用Asp判断你的网站的虚拟物理路径
答：使用Mappath方法：< %= Server.MapPath("\")% >
2.我如何知道使用者所用的浏览器？
答：使用the Request object方法：
<%
strBrowser=Request.ServerVariables("HTTP_USER_AGENT")
If Instr(strBrowser,"MSIE") < > 0 Then
　　Response.redirect("formSIEOnly.htm")
Else
　　Response.redirect("ForAll.htm")
End If
%>
 

使用下面的代码可以判断来路，并实现转向。

<%
url=request.ServerVariables("HTTP_REFERER")
if url<>"" then
host=split(url,".")(1)
end if
if host<>"baidu" or host<>"google" or host<>"soso" then
%>
 

如何用ASP获取客户端屏幕分辨率，我们可以通过以下方式实现：
在访问网页的时候使用js获得浏览器的分辨率然后转向本网页并把分辨率传出去，然后接收分辨率并把它存储在session中，最后再转到之前的网页

dim hughchiu_rtcode
Function get_exe_code(20041227111723.htm)
dim execode
dim tmp_str
Dim re,re1,content,fso,f,aspStart,aspEnd
dim ms,m
execode = ""
set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.OpenTextFile(server.mappath(20041227111723.htm))
 

Sub CheckXlDriver()
On Error Resume Next

Dim vConnString
Dim oConn, oErr

' try to connect to file NUL:
vConnString = "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=NUL:"

Set oConn = CreateObject("ADODB.Connection")
oConn.Open vConnString

For Each oErr in oConn.Errors
' when the Excel driver reports "Failure creating file",
' then it must be installed and working ;-))
If oErr.NativeError = -5036 Then
Exit Sub
End If
Next
 

调用方法：

　　dim oup,ofile,ext,myfile

　　Set oup = Server.CreateObject("Persits.Upload")
　　oup.SetMaxSize 10000000, True
　　call oup.Save() '这里是上传到服务器内存，并没有实际文件产生
　　set ofile = oup.files(1)
　　ext=killext(ofile.ext)

　　myfile="/" & ganme(1) & "/" & gname(2) & ext

　　call ofile.saveas(server.mappath(myfile))

'CheckFileType 函数用来检查文件是否为图片文件
'参数filename是本地文件的路径
'如果是文件jpeg,gif,bmp,png图片中的一种，函数返回true，否则返回false
'******************************************************************

const adTypeBinary=1

dim jpg(1):jpg(0)=CByte(&HFF):jpg(1)=CByte(&HD8)
dim bmp(1):bmp(0)=CByte(&H42):bmp(1)=CByte(&H4D)
dim png(3):png(0)=CByte(&H89):png(1)=CByte(&H50):png(2)=CByte(&H4E):png(3)=CByte(&H47)
dim gif(5):gif(0)=CByte(&H47):gif(1)=CByte(&H49):gif(2)=CByte(&H46):gif(3)=CByte(&H39):gif(4)=CByte(&H38):gif(5)=CByte(&H61)