ASP基础
网址:amzoo.cn 发布时间:2013/3/26 来源:广州扬帆科技网 人气: 【
大 中 小】
代码自动控制图片宽高：
![]()
" onload="javascript:if(this.width>this.height) this.width=250;if(this.height>this.width) this.height=250;">
'asp字符串相加
A=100.50 '字符串
B=200.10 '字符串
C=A+B
C=100.50200.10 '这样就不是我们要的结果了。
'怎样来实现两个字符串相加而得到C=300.6呢？看下面：
C=CDbl(A)+CDbl(B) '这样C就等于300.6了
'说明：CDBL是将字符串转换为数字的函数
<--% ’===================删除图片======================= UploadFiles="shb_01.gif" Set fdel = CreateObject("Scripting.FileSystemObject") tempImageDir = Server.MapPath(UploadFiles) ’MapPath 方法的路径参数中有无效字符。 If (fdel.FileExists(tempImageDir)) Then fdel.DeleteFile(tempImageDir) end if ’===================删除图片======================= %--> <--% dim conn set conn = server.createobject ("adodb.connection") strDSN="Driver={SQL Server}; Database=cj365; Server=124.172.156.192;uid=cj365_f;pwd=pswbrxx189" conn.open strDSN set rs=server.CreateObject("adodb.recordset") rs.open "select * from mobile",conn,1,1 do while not rs.eof response.write rs("phone")&"
" rs.movenext loop rs.close ’判断数据库状态 If conn.State = 1 Then Response.Write("数据库链接成功！") else conn.Close Response.Write("数据库链接失败！") Set conn = nothing End If %-->
获取IP地址和获取网址：
一、获取服务器IP地址：<%=request.ServerVariables("LOCAL_ADDR")%>
二、获取当前IP地址：<%=request.ServerVariables("REMOTE_ADDR")%>
三、获取网址：<%StrURL=lcase(Request.ServerVariables("HTTP_HOST") & "")%>
//Split用法
Publish = Request("Publish")
aryReturn = Split(Publish," ")
SplitText = ""
For i = LBound(aryReturn) To UBound(aryReturn)
SplitText = SplitText&" And Publish Like '%"&aryReturn(i)&"%'"
Next
sql="select bookid,bookname FROM shop_books where book<>5"& SplitText&" order by bookid desc"
--------------------------------------------------------------------------------------
//ASP中常用的语句
循环语句：
Do循环：
Do While Num>10
语句
Loop
For...Next循环：
For X=1 To 10 (Step 2或-2)
语句
Next
条件语句：
If...Then...Else 语句：
If 条件1 Then
语句
Else
语句
End If
Select Case语句：
Select Case Name
Case "1"
语句
Case "Good"
语句
Case Else
语句
End Select
//Name为字符，ID为数字
Name = trim(request("Name"))
ID=request.QueryString("ID")
Select Case ID
Case "1"
Title="图书"
URL="managebook.asp?lx=book"
End Select
