想说一句心里话——祝愿每一位朋友一生平安!

iStringTheory 2003-04-26 06:40:22
希望我在csdn认识的,不认识的新老朋友,工作之余,多多注意身体,少熬夜,希望每一个人都健康快乐!!

写code很累,我个人深有体会,希望大家能够给多一点时间爱惜自己,哪怕不是为了自己,也要为所有爱自己的人,和自己所爱的人!

相信:好人一生平安!
坚信:我们一定能够同心协力,共渡难关!-_-
...全文
68 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
codayssss 2003-04-27
  • 打赏
  • 举报
回复
up!!!
iStringTheory 2003-04-27
  • 打赏
  • 举报
回复
up!!
iStringTheory 2003-04-26
  • 打赏
  • 举报
回复
谢谢 fason(阿信)(避非典中...) !!! ;)
fason 2003-04-26
  • 打赏
  • 举报
回复
基于菜单不能显示于select之上,隐藏的方法最简单,以下是一组函数
var HideElementTemp = new Array();
//点击菜单时,调用此的函数,菜单对象
function cal_hideElementAll(obj){
cal_HideElement("IMG",obj);
cal_HideElement("SELECT",obj);
cal_HideElement("OBJECT",obj);
cal_HideElement("IFRAME",obj);
}
function cal_HideElement(strElementTagName,obj){
try{
var showDivElement = obj;
var calendarDiv = obj);
var intDivLeft = cal_GetOffsetLeft(showDivElement);
var intDivTop = cal_GetOffsetTop(showDivElement);//+showDivElement.offsetHeight;
for(i=0;i<window.document.all.tags(strElementTagName).length; i++){
var objTemp = window.document.all.tags(strElementTagName)[i];
if(!objTemp||!objTemp.offsetParent||objTemp==goYearSelect||objTemp==goMonthSelect)
continue;
var intObjLeft=cal_GetOffsetLeft(objTemp);
var intObjTop=cal_GetOffsetTop(objTemp);
if(((intObjLeft+objTemp.clientWidth)>intDivLeft)&&
(intObjLeft<intDivLeft+calendarDiv.style.posWidth)&&
(intObjTop+objTemp.clientHeight>intDivTop)&&
(intObjTop<intDivTop+calendarDiv.style.posHeight)){
var intTempIndex=HideElementTemp.length;//已经有的长度
//save elementTagName is stutas
HideElementTemp[intTempIndex]=new Array(objTemp,objTemp.style.visibility);
objTemp.style.visibility="hidden";
}
}
}catch(err){
}
}

function cal_ShowElement(){
var i;
for(i=0;i<HideElementTemp.length; i++){
var objTemp = HideElementTemp[i][0];
if(!objTemp||!objTemp.offsetParent)
continue;
objTemp.style.visibility=HideElementTemp[i][1];
}
HideElementTemp=new Array();
}

function cal_GetOffsetLeft(src){
var set=0;
if(src && src.name!="divMain"){
if (src.offsetParent){
set+=src.offsetLeft+cal_GetOffsetLeft(src.offsetParent);
}
if(src.tagName.toUpperCase()!="BODY"){
var x=parseInt(src.scrollLeft,10);
if(!isNaN(x))
set-=x;
}
}
return set;
}

function cal_GetOffsetTop(src){
var set=0;
if(src && src.name!="divMain"){
if (src.offsetParent){
set+=src.offsetTop+cal_GetOffsetTop(src.offsetParent);
}
if(src.tagName.toUpperCase()!="BODY"){
var y=parseInt(src.scrollTop,10);
if(!isNaN(y))
set-=y;
}
}
return set;
}
fason 2003-04-26
  • 打赏
  • 举报
回复
找找先,先收藏,呵呵
iStringTheory 2003-04-26
  • 打赏
  • 举报
回复
嗯,为了减轻大家的负担,建议大家贴出自己的得意之作,为自己为别人减少一份压力,我先来

一个很好用的图文上传的代码,理论支持多图上传!

<%
response.expires=0

Sub BuildUploadRequest(RequestBin)
'Get the boundary
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
'Get all data inside the boundaries
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
'Members variable of objects are put in a dictionary object
Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")
'Get an object name
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))

PosFile=InstrB(BoundaryPos,RequestBin,getByteString("filename="))
PosBound = InstrB(PosEnd,RequestBin,boundary)
'Test if object is of file type
If PosFile<>0 AND (PosFile<PosBound) THEN
'Get Filename, content-type and content of file
PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
'Add filename to dictionary object
UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
'Add content-type to dictionary object
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))

'Get content of object
PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
else
'Get content of object
Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg = Pos+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = (MidB(RequestBin,PosBeg,PosEnd-PosBeg))
'Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
End If
'Add content to dictionary object
UploadControl.Add "Value" , Value

'Add dictionary object to main dictionary
UploadRequest.Add name, UploadControl
'Loop to next object
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
Loop
end Sub

'Byte string to string conversion
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function

'String to byte string conversion
Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function

Function bin2str(binstr)
Dim varlen,clow,ccc,skipflag
skipflag=0
ccc = ""
varlen=LenB(binstr)
For i=1 To varlen
If skipflag=0 Then
clow = MidB(binstr,i,1)
If AscB(clow) > 127 Then
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End If
Next
bin2str = ccc
End Function

FormSize = Request.TotalBytes
FormData = Request.BinaryRead(FormSize)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest FormData

txtTitle=bin2str(UploadRequest.Item("txtTitle").Item("Value"))
txtLaiy=bin2str(UploadRequest.Item("txtLaiy").Item("Value"))
txtNeir=bin2str(UploadRequest.Item("txtNeir").Item("Value"))
txtShij=getString(UploadRequest.Item("txtShij").Item("Value"))
txtTuij=getString(UploadRequest.Item("txtTuij").Item("Value"))
picture=UploadRequest.Item("user_file").Item("Value")
picturechunk = picture & chrB(0)
'response.end
'response.BinaryWrite(picturechunk)
ON ERROR RESUME NEXT
Application.Lock
set objCnn=Server.CreateObject("ADODB.Connection")
objCnn.Open MM_sqlsvr_STRING
set rec=Server.CreateObject("ADODB.Recordset")
rec.Open "SELECT * FROM tNews",objCnn,3,3
rec.addnew

rec("cBiaot")=txtTitle
rec("cLaiy")=txtLaiy
rec("cNeir")=txtNeir
rec("cShij")=txtShij
rec("cTuij")=txtTuij
if Len(picturechunk)>1 then
rec("cImg").Appendchunk picturechunk
end if
rec.update
rec.close
set rec=nothing
set objCnn=Nothing
Application.Unlock
IF ERR.NUMBER>0 THEN RESPONSE.Write(ERR.DESCRIPTION)
RESPONSE.Redirect("newslist.asp")
%>
fason 2003-04-26
  • 打赏
  • 举报
回复
还没有真正投入工作作程序员,但知道程序员确实是很累的.身体第一吧!大家都多保重
cxp3000 2003-04-26
  • 打赏
  • 举报
回复
谢谢大侠,小妹真感动
能告诉我你得QQ吗?
我觉得你很值得交往
zhangguagua 2003-04-26
  • 打赏
  • 举报
回复
心灵的共鸣;
眼泪哗哗的...
billyqiao 2003-04-26
  • 打赏
  • 举报
回复
好日子很快就会有了

28,408

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧