asp网页设计源代码 第1篇
function dischange()
if((_lh_)._block_)
(_lh_)._none_;
(_gqh_).innerHTML=_显示_;
else
(_lh_)._block_;
(_gqh_).innerHTML=_隐藏_;
','gqh<%=i%>');_>显示详细信息
注释:<%=i%> 是动态显示多条需要显示的信息 for i= 1 to
框架网页类型
function changesrc(mc)
(_main_).src=mc;
style=_cursor:hand_ οnclick=_changesrc('')_
文件上传
1.顶部输入下面代码,此代码必不可少
<%
= True '建立缓存
'定义超期时间
On Error Resume Next
%>
2.在
ExtName = _jpg,gif,png,txt,rar,zip,doc_ '允许的上传文件扩展名
SavePath = _xyphoto _文件路径:
<%
ExtName = _jpg,gif,png,txt,rar,zip,doc_ '允许的上传文件扩展名
SavePath = _xyphoto_ '文件保存路径
If Right(SavePath,1)<>_/_ Then SavePath=SavePath&_/_ '在目录后加(/)
CheckAndCreateFolder(SavePath)
UpLoadAll_a = '取得客户端全部内容
If(UpLoadAll_a>0) Then
Set UploadStream_c = (__)'建立对象
= 1
(UpLoadAll_a)
= 0
FormDataAll_d =
CrLf_e = chrB(13)&chrB(10)
FormStart_f = InStrB(FormDataAll_d,CrLf_e)
FormEnd_g = InStrB(FormStart_f+1,FormDataAll_d,CrLf_e)
Set FormStream_h = (__)
= 1
= FormStart_f + 1
FormStream_h,FormEnd_g-FormStart_f-3
= 0
= 2
= _GB2312_
FormStreamText_i =
FileName_j = Mid(FormStreamText_i,InstrRev(FormStreamText_i,_\_)+1,FormEnd_g)
If(CheckFileExt(FileName_j,ExtName)) Then
SaveFile = (SavePath & FileName_j)
If Err Then
' _文件上传: 文件上传出错!重新上传文件
_
%>
alert(_文件上传出错,重新上传_);
__
<%
Else
SaveFile = CheckFileExists(SaveFile)
k=Instrb(FormDataAll_d,CrLf_e&CrLf_e)+4
l=Instrb(k+1,FormDataAll_d,leftB(FormDataAll_d,FormStart_f-1))-k-2
FormStream_h,l
SaveFile,2
SaveFileName = Mid(SaveFile,InstrRev(SaveFile,_\_)+1)
' _文件上传: _ & SaveFileName & _ 文件上传成功!继续上传文件
_
%>
alert(_恭喜您,文件上传成功_);
__;
<%
End If
Else
' _文件上传: 文件格式不正确!重新上传文件
_
%>
alert(_文件格式不正确,请确认后重新上传_);
__;
<%
End If
Else
%>
在表单中把 类型该为文本类型 file
4.结束
<%
End if
Set FormStream_h = Nothing
Set UploadStream = Nothing
%>
5.上传在后面输入
<%
'判断文件类型是否合格
Function CheckFileExt(FileName,ExtName) '文件名,允许上传文件类型
FileType = ExtName
FileType = Split(FileType,_,_)
For i = 0 To Ubound(FileType)
If LCase(Right(FileName,3)) = LCase(FileType(i)) then
CheckFileExt = True
Exit Function
Else
CheckFileExt = False
End if
Next
End Function
'检查上传文件夹是否存在,不存在则创建文件夹
Function CheckAndCreateFolder(FolderName)
fldr = (FolderName)
Set fso = CreateObject(__)
If Not (fldr) Then
(fldr)
End If
Set fso = Nothing
End Function
'检查文件是否存在,重命名存在文件
Function CheckFileExists(FileName)
Set fso=(__)
If (SaveFile) Then
i=1
msg=True
Do While msg
CheckFileExists = Replace(SaveFile,Right(SaveFile,4),___ & i & Right(SaveFile,4))
If not (CheckFileExists) Then
msg=False
End If
i=i+1
Loop
Else
CheckFileExists = FileName
End If
Set fso=Nothing
End Function
%>
6.在表单中输入 method=_post_ action=__ οnsubmit=_return ValidInput()_ enctype=_multipart/form-data_
asp网页设计源代码 第2篇
<%
dim rs
dim i
set rs=(__)
_select 报名号 from xybm_,con,1,3,1
'编号
dim ybh
ybh=__
for i=1 to
ybh=ybh+rs(_报名号_)+_*_
next
set rs=nothing
set con=nothing
for i=1 to 9999
if i<10 then
dqbh=_000_+trim(cstr(i))
elseif i<100 then
dqbh=_00_+trim(cstr(i))
elseif i<1000 then
dqbh=_0_+trim(cstr(i))
else
dqbh=trim(cstr(i))
end if
dqbh=_2010_+dqbh
if instr(ybh,dqbh)=0 then
exit for
end if
next
(_
_+dqbh)
%>
asp网页设计源代码 第3篇
1.链接数据库
2.检索出指定条件的数据,并降序显示
<%
dim rs
dim i
set rs=(__)
_select * from jl order by 学号 desc_,con,1,3,1
设置页面中数据的个数
判断页号是否为空__/数字isnumeric(pn)/是否大于0小于页面总数
dim pn
pn=request(_pn_)
if pn=__ then
pn=1
elseif isnumeric(pn)=false then
pn=1
elseif clng(pn)<=0 or clng(pn)> then
pn=1
end if
确定当前页面
%>
asp网页设计源代码 第4篇
补充说明:
a:hover 表示鼠标划过时的样式.
a:link 表示链接的样式.
a:active 表示当前活动连接的样式.
a:visited 表示已经访问过的连接的样式.