2007年5月随笔档案 - Edwin dong - 博客园

随笔-40 评论-207 文章-1 trackbacks-4

05 2007 档案

使用消息框

摘要: 使用警告、提示和确认 confirm alert prompt阅读全文

posted @ 2007-05-31 14:35 Edwin dong 阅读(302) | 评论 (0) 编辑

"无法在web服务器上启动调试，未将项目配置为进行调试"解决方法

摘要: 无法在web服务器上启动调试，未将项目配置为进行调试阅读全文

posted @ 2007-05-24 17:24 Edwin dong 阅读(2327) | 评论 (3) 编辑

使用FileUpload实现多个文件同时上传

摘要: FileUpload 多个文件同时上传
HttpPostedFile阅读全文

posted @ 2007-05-15 16:49 Edwin dong 阅读(2239) | 评论 (6) 编辑

摘要: 'sys'未定义阅读全文

posted @ 2007-05-12 10:54 Edwin dong 阅读(2050) | 评论 (2) 编辑

net连接access数据库，输出结果到页面

摘要: Access 连接数据库输出页面阅读全文

posted @ 2007-05-11 09:46 Edwin dong 阅读(395) | 评论 (1) 编辑

变相激发FileUpload事件

摘要: Attributes onpropertychange阅读全文

posted @ 2007-05-09 09:54 Edwin dong 阅读(2866) | 评论 (0) 编辑

<% Function googleColor(value, random) Dim colorArray colorArray = Split(value, ",") googleColor = colorArray(random Mod (UBound(colorArray) + 1)) End Function Function googleScreenRes() Dim screenRes, delimiter, resArray screenRes = Request.ServerVariables("HTTP_UA_PIXELS") delimiter = "x" If IsEmpty(screenRes) Then screenRes = Request.ServerVariables("HTTP_X_UP_DEVCAP_SCREENPIXELS") delimiter = "," End If resArray = Split(screenRes, delimiter, 2) If (UBound(resArray) + 1) = 2 Then googleScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1) End If End Function Function googleDcmguid() Dim dcmguid dcmguid = Request.ServerVariables("HTTP_X_DCMGUID") If Not IsEmpty(dcmguid) Then googleDcmguid = "&dcmguid=" & dcmguid End If End Function Dim googleTime, googleDt, googleScheme, googleHost googleTime = DateDiff("s", "01/01/1970 00:00:00", Now()) googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer))) googleScheme = "http://" If StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://" googleHost = Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST")) Dim googleAdUrl, googleAdOutput googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_ "ad_type=text_image" &_ "&channel=" &_ "&client=ca-mb-pub-6539345765131754" &_ "&dt=" & googleDt &_ "&format=mobile_single" &_ "&host=" & googleHost &_ "&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_ "&markup=xhtml" &_ "&oe=utf8" &_ "&output=xhtml" &_ "&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_ "&url=" & googleHost & Server.URLEncode(Request.ServerVariables("URL")) &_ "&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) &_ googleScreenRes() &_ googleDcmguid() Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP") googleAdOutput.Open "GET", googleAdUrl, false googleAdOutput.Send Response.Write(googleAdOutput.responseText) %>