?? function.asp
字號:
<%
'******************
'取得剛剛添加公告的編號
'******************
Function GetBulletinId()
set rsBulletin=server.CreateObject("ADODB.recordset")
strSQL="select Id from gongwen order by Id Desc"
rsBulletin.Open strSQL,conn,1,1
If Not rsBulletin.eof Then
GetBulletinId=rsBulletin("Id")
ELse
GetBulletinId=0
End If
rsBulletin.close
End Function
'******************
'將上傳文件信息寫入數據庫
'******************
Sub UpdateUpload(AreaType,ItemId)
UploadFileCount=Session("UploadFileCount")
UploadFileDir=Session("UploadFileDir")
If UploadFileCount>0 Then
FileDir=split(UploadFileDir,"*") '獲得上傳文件路徑
for i=1 to ubound(FileDir)
InputFileDir=FileDir(i)
strSQL="insert into gongUpload (UpPath,Type,ItemId) values('"&InputFileDir&"',"&AreaType&","&ItemId&")"
conn.execute strsql
Next
End If
End Sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -