3D和Swis视频教程

<% 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 If IsEmpty(screenRes) Then screenRes = Request.ServerVariables("HTTP_X_JPHONE_DISPLAY") 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 googleMuid() Dim muid muid = Request.ServerVariables("HTTP_X_DCMGUID") If Not IsEmpty(muid) Then googleMuid = "&muid=" & muid End If muid = Request.ServerVariables("HTTP_X_UP_SUBNO") If Not IsEmpty(muid) Then googleMuid = "&muid=" & muid End If muid = Request.ServerVariables("HTTP_X_EM_UID") If Not IsEmpty(muid) Then googleMuid = "&muid=" & muid End If End Function Dim googleTime, googleDt, googleScheme 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://" Dim googleAdUrl, googleAdOutput googleAdUrl = "http://pagead2./pagead/ads?" &_ "ad_type=text_image" &_ "&channel=" &_ "&client=ca-mb-pub-9829466826530714" &_ "&dt=" & googleDt &_ "&format=mobile_single" &_ "&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_ "&markup=xhtml" &_ "&oe=utf8" &_ "&output=xhtml" &_ "&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_ "&url=" & Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")) &_ "&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) &_ googleScreenRes() &_ googleMuid() Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP") googleAdOutput.Open "GET", googleAdUrl, false googleAdOutput.Send Response.Write(googleAdOutput.responseText) %>

共 33 条，当前第 1/2页，每页 20 条    [图]3D制作论坛签名头像（图文教程） 2008/6/14 [16066]    [图]Xara3D6.0教程（入门2） 2008/6/14 [6796]    [图]Xara3D6.0图文教程（入门1） 2008/6/14 [6689]    [图]SwishMax制作签名动态图片完整步骤 2008/5/23 [14074]    [图]3D签名图片制作完整步骤 2008/4/24 [29408]    [图]SwishMax视频教程 （第二讲） 2008/4/21 [4950]    [图]SwishMax视频教程 （第一讲） 2008/4/21 [7120]    [图]Swishmax（完整中文视频教程) 2008/4/27 [12603]    会声会影11视频教程 2008/7/8 [2161]    3dsmax9.0中文版入门到精通视频教程 2008/6/17 [2429]    [图]3Ds MAX 7.0（金鹰视频教程） 2008/6/14 [3141]    3D6.0将照片变玉佩的制作方法 2008/4/21 [3822]    第十二节：Xara3D6 制作多面有层次图片(三) 2008/4/21 [4634]    第十一节：xara3D6 制作多面有层次图片(二) 2008/4/21 [2365]    第十节： Xara6D 制作多面有层次图片(一) 2008/4/21 [3760]    第九节：Xara3D6制作双面转动照片 2008/4/21 [5076]    第八节：Xara3D6制作背景+旋转照片 2008/4/21 [5772]    第七节：Xara3D6制作个性化鼠标 2008/4/21 [2318]    第六节： Xara3D6制作播放器按钮 2008/4/21 [2292]    第五节：Xara3D6D制作动画字 2008/4/21 [7449]