up.htm
<!--#include file="inc/domin.asp"-->
<!--#include file="conn.asp"-->
<html>
<kepala>
<judul><% =nama web %></judul>
<meta http-equiv="Jenis Konten" content="teks/html; charset=gb2312">
<link rel="stylesheet" href="main.css" type="text/css">
<gaya tipe="teks/css">
<!--
.tx1 { tinggi: 20 piksel; lebar: 30 piksel; ukuran font: 9pt; batas: 1px padat; warna batas: hitam hitam
#000000; warna: #0000FF}
-->
</style>
<skrip bahasa="JavaScript">
<!--
var bgc_on=Array baru("#74D738","#FF9C17","#3278AB","#486177","#078C00","#007ECA")
var bgc_off=new Array("#4CAD12","FFB859","5F9FD0","577590","08A700","009FFF")
fungsi turnon(obj1,id){
obj1.style.background=bgc_on[id];
}
fungsi mati(obj1,id){
obj1.style.background=bgc_off[id];
}
//-->
</skrip>
<Bahasa SKRIP=javascript>
fungsi check_input()
{
if (Frm.pic.value=="")
{ alert("请选择要上传的图片");
kembali salah;
}
jika (Frm.type.value=="")
{ alert("请选择图片类型");
kembali salah;
}
if (Frm.teks.nilai=="")
{ alert("请输入照片说明");
kembali salah;
}
kembali benar;
}
</SKRIP>
</head>
<tubuh bgcolor="#555555" text="#000000" leftmargin="0" topmargin="0">
<lebar tabel=755 cellpadding=0 spasi sel=0 batas=0 bgcolor=#ffffff align="center">
<tr>
<td tinggi=100><img src="img/top.gif" align="top">
</tabel>
<!--#include file="inc/mulu.asp"-->
<lebar tabel=755 cellpadding=0 spasi sel=0 batas=0 bgcolor=#ffffff align="center" bordercolor=#000000>
<tr>
<td tinggi=400 lebar=180 bgcolor=#D1E9D5 style="border-right: 1px #0E801E solid">
<lebar tabel=100% tinggi=100% cellpadding=0 spasi sel=0 batas=0 align="center" bordercolor=#000000>
<tr><td height=30 align="center" class=L15><font color=#E96D08>欢迎你：<% =nama pengguna %> 管理中心</font>
<tr><td height=23 align="center" class=L15 bgcolor=#4CAD12 style="border-top:0px #0E801E solid; border-bottom:1px #0E801E solid;"><font color=#kelas C2F009 =yinying>管 理 中 心</font>
<tr><td tinggi=20 kelas=L13>
<!--#include file="inc/centermulu.asp"-->
<tr><td tinggi=5>
<tr><td>
</tabel>
<td>
<%
set rs=server.createobject("adodb.recordset")
sql="pilih * dari foto di mana penulis='"&nama pengguna&"'"
rs.open sql,sambungan,1,1
%>
<tabel cellpadding=0 spasi sel=0 batas=0 lebar=100% tinggi=100%>
<tr><td tinggi=3>
<tr><td tinggi=3 bgcolor=#ffffff latar belakang=img/bj3.gif>
<tr><td tinggi=20 valign="bawah" bgcolor=#eeeeee> 现在位置： 98243班 - 管理中心 - 添加新闻
<tr><td tinggi=3 bgcolor=#eeeeee style="border-bottom: 1px #cccccc solid"><p style="font-size:1pt">
<tr><td height=20 valign="bottom"> <font color=green><% =nama pengguna %>：你一共上传了 <font color=red><% =rs.recordcount %></font> 张foto</font> <a href="adminphoto.asp"><font color=red><u>Foto foto</u></font></a>
<tr><td bgcolor=#ffffff valign=atas>
<tabel cellpadding=0 spasi sel=0 batas=0 lebar=95% tinggi=100% align="center">
<form action=addphoto.asp method=post name=Frm onSubmit="return check_input()" enctype="multipart/form-data">
<tr><td tinggi=20 colspan=2>
<tr><td tinggi=25 lebar=15% align="right" class=L13>选择照foto： <td> <input NAME="pic" TYPE="FILE" class="tx1" style="width:300 "> <warna font=merah>拒绝色情、写真图等</font>
<tr><td height=25 width=20% align="right" class=L13>照片分类： <td> <pilih nama=" mengetik">
<opsi dipilih value="">选择类型</option>
<option value="班级合影">班级合影</option>
<option value="个人照片">个人foto</option>
<option value="恩师照片">恩师foto</option>
<option value="情人照片">情人foto</option>
<option value="友人照片">友人foto</option>
<option value="其他照片">其他foto</option>
</select>
<tr><td tinggi=25 lebar=20% align="right" class=L13>tampilan foto 说明： <td> <textarea name="thetext" cols="46" row="7" style= "perbatasan:1px rgb ganda(88,88,88);font:9pt">
</textarea> <font color=red>20 hari</font>
<tr><td tinggi=5 colspan=2>
<tr><td tinggi=25 colspan=2 align="center">
<input type="kirim" name="Kirim" value=" 提 交 " style="border:1px double rgb(88,88,88);font:9pt">
<input type="reset" name="Reset" value=" 重 写 " style="border:1px double rgb(88,88,88);font:9pt">
<tr><td colspan=2>
</tr></bentuk>
</tabel>
</tabel>
</tabel>
<!--#include file="inc/footer.asp"-->
</tubuh>
</html>
fupload.inc
<SKRIP RUNAT=BAHASA SERVER=VBSCRIPT>
'限制上传图 foto
Redupkan UploadSizeLimit
'************************************ 得到上传数据 ********** ************************
Fungsi Dapatkan Unggah()
Hasil Redup
Tetapkan Hasil = Tidak Ada
Jika Request.ServerVariables("REQUEST_METHOD") = "POST" Maka 'Metode permintaan harus "POST"
Redupkan CT, PosB, Batas, Panjang, PosE
CT = Request.ServerVariables("HTTP_Content_Type") 'membaca header Tipe Konten
Jika LCase(Left(CT, 19)) = "multipart/form-data" Maka 'Header Tipe Konten harus "multipart/form-data"
'Ini adalah permintaan unggahan.
'Dapatkan batas dan panjang dari header Tipe Konten
PosB = InStr(LCase(CT), "boundary=") 'Menemukan batas
Jika PosB > 0 Maka Batas = Tengah(CT, PosB + 9) 'Batas terpisah
Panjang = CLng(Request.ServerVariables("HTTP_Content_Length")) 'Dapatkan header Panjang Konten
jika "" & UploadSizeLimit<>"" lalu
UnggahUkuranBatas = clng(UnggahUkuranBatas)
jika Panjang > UploadSizeLimit lalu
' pada kesalahan lanjutkan berikutnya 'Menghapus buffer input
' respon.AddHeader "Koneksi", "Tutup"
' pada kesalahan kebagian 0
Permintaan.BinaryRead(Panjang)
Err.Naikkan 2, "GetUpload", "Ukuran unggahan" & FormatNumber(Panjang,0) & "B melebihi batas " & FormatNumber(UploadSizeLimit,0) & "B"
fungsi keluar
berakhir jika
end if
Jika Panjang > 0 Dan Batas <> "" Lalu 'Apakah ada informasi yang diperlukan tentang unggahan?
Batas = "--" & Batas
Redupkan Kepala, Biner
Binary = Request.BinaryRead(Length) 'Membaca data biner dari klien
'Mengambil kolom unggahan dari data biner
Tetapkan Hasil = Bidang Terpisah (Biner, Batas)
Biner = Kosong 'Hapus variabel
Kalau tidak
Err.Naikkan 10, "GetUpload", "Permintaan panjang nol."
Akhiri Jika
Kalau tidak
Err.Raise 11, "GetUpload", "Tidak ada file yang terkirim."
Akhiri Jika
Kalau tidak
Err.Raise 1, "GetUpload", "Metode permintaan buruk."
Akhiri Jika
Setel GetUpload = Hasil
Fungsi Akhir
Fungsi Bidang Terpisah (Biner, Batas)
Redupkan PosOpenBoundary, PosCloseBoundary, PosEndOfHeader, isLastBoundary
Bidang Redup
Batas = StringToBinary(Batas)
PosOpenBoundary = InstrB(Biner, Batas)
PosCloseBoundary = InstrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary, 0)
Set Fields = CreateObject("Scripting.Dictionary")
Lakukan Sementara (PosOpenBoundary > 0 Dan PosCloseBoundary > 0 Dan Bukan isLastBoundary)
'Data bidang header dan file/sumber
Redupkan HeaderContent, FieldContent
'Bidang tajuk
Redupkan Content_Disposition, FormFieldName, SourceFileName, Content_Type
'Membantu variabel
Bidang Redup, TwoCharsAfterEndBoundary
'Dapatkan akhir tajuk
PosEndOfHeader = InstrB(PosOpenBoundary + Len(Boundary), Binary, StringToBinary(vbCrLf + vbCrLf))
'Memisahkan header bidang
HeaderContent = MidB(Binary, PosOpenBoundary + LenB(Boundary) + 2, PosEndOfHeader - PosOpenBoundary - LenB(Boundary) - 2)
'Memisahkan konten bidang
FieldContent = MidB(Binary, (PosEndOfHeader + 4), PosCloseBoundary - (PosEndOfHeader + 4) - 2)
'Memisahkan kolom header dari header
GetHeadFields BinaryToString(HeaderContent), Content_Disposition, FormFieldName, SourceFileName, Content_Type
'Buat satu bidang dan tetapkan parameter
Setel Bidang = BuatUploadField()
Bidang.Nama = FormFieldName
Bidang.ContentDisposition = Content_Disposition
Bidang.FilePath = SourceFileName
Bidang.NamaFile = GetFileName(SourceFileName)
Bidang.ContentType = Content_Type
Bidang.Nilai = Isi Bidang
Bidang.Panjang = LenB(Isi Bidang)
Bidang.Tambahkan FormFieldName, Bidang
'Apakah ini batas akhir?
TwoCharsAfterEndBoundary = BinaryToString(MidB(Biner, PosCloseBoundary + LenB(Batas), 2))
'Binary.Mid(PosCloseBoundary + Len(Batas), 2).String
isLastBoundary = TwoCharsAfterEndBoundary = "--"
Jika Bukan Batas Terakhir Maka 'Ini bukan batas akhir - lanjutkan ke kolom formulir berikutnya.
PosOpenBoundary = PosCloseBoundary
PosCloseBoundary = InStrB(PosOpenBoundary + LenB(Batas), Biner, Batas )
Akhiri Jika
Lingkaran
Setel SeparateFields = Bidang
Fungsi Akhir
'********************************** Utilitas ************ *************************
Fungsi BinerToString(str)
strto = ""
untuk i=1 hingga lenb(str)
jika AscB(MidB(str, i, 1)) > 127 maka
strto = strto & chr(Ascb(MidB(str, i, 1))*256+Ascb(MidB(str, i+1, 1)))
saya = saya + 1
kalau tidak
strto = strto & Chr(AscB(MidB(str, i, 1)))
berakhir jika
Berikutnya
BinaryToString=strto
Fungsi Akhir
Fungsi StringToBinary(String)
Redupkan aku, B
Untuk I=1 hingga len(String)
B = B & ChrB(Asc(Mid(String,I,1)))
Berikutnya
StringToBinary = B
Fungsi Akhir
'Memisahkan kolom header dari header unggahan
Fungsi GetHeadFields(ByVal Head, Content_Disposition, Nama, Nama File, Content_Type)
Content_Disposition = LTrim(SeparateField(Kepala, "disposisi konten:", ";"))
Nama = (SeparateField(Kepala, "nama=", ";")) 'ltrim
Jika Kiri(Nama, 1) = """" Maka Nama = Tengah(Nama, 2, Len(Nama) - 2)
Nama File = (SeparateField(Kepala, "namafile=", ";")) 'ltrim
Jika Kiri(NamaFile, 1) = """" Maka NamaFile = Tengah(NamaFile, 2, Len(NamaFile) - 2)
Content_Type = LTrim(SeparateField(Kepala, "tipe konten:", ";"))
Fungsi Akhir
'Memisahkan satu file antara sStart dan sEnd
Fungsi SeparateField (Dari, ByVal sStart, ByVal sEnd)
Redupkan PosB, PosE, sFrom
sDari = LCase(Dari)
PosB = InStr(sDari, sMulai)
Jika PosB > 0 Maka
PosB = PosB + Len(sMulai)
PosE = InStr(PosB, sFrom, sEnd)
Jika PosE = 0 Maka PosE = InStr(PosB, sFrom, vbCrLf)
Jika PosE = 0 Maka PosE = Len(sFrom) + 1
SeparateField = Tengah(Dari, PosB, PosE - PosB)
Kalau tidak
SeparateField = Kosong
Akhiri Jika
Fungsi Akhir
'Memisahkan nama file dari jalur lengkap file
Fungsi GetFileName (Path Lengkap)
Redupkan Pos, PosF
PosF = 0
Untuk Pos = Len(FullPath) Ke 1 Langkah -1
Pilih Case Mid (FullPath, Pos, 1)
Huruf "/", "": PosF = Pos + 1: Pos = 0
Pilihan Akhir
Berikutnya
Jika PosF = 0 Maka PosF = 1
GetFileName = Tengah(FullPath, PosF)
Fungsi Akhir
</SKRIP>
<SCRIPT RUNAT=BAHASA SERVER=JSCRIPT>
//Fungsi tersebut membuat objek Bidang.
fungsi CreateUploadField(){ kembalikan uf_Init() baru }
fungsi uf_Init(){
ini.Nama = null
ini.ContentDisposition = null
ini.NamaFile = null
ini.FilePath = nol
ini.ContentType = null
ini.Nilai = nol
ini.Panjangnya = null
}
</SCRIPT>
tambahkan foto.asp
<!--#include file="conn.asp"-->
<!--#include file="inc/domin.asp"-->
<!--#include file="fupload.inc"-->
<%
jika Request.ServerVariables("REQUEST_METHOD") = "POST" Lalu
Bidang Redup
BatasUnggahUkuran=100000
Setel Bidang = GetUpload()
Bidang redup
Untuk Setiap Bidang Di Bidang.Item
pilih kasus Bidang.nama
case "teks" sss=BinaryToString(Bidang.nilai)
case "type" fff=BinaryToString(Field.nilai)
case "kirim" submit=BinaryToString(Field.value)
kasus "gambar"
nama file=bidang.NamaFile
fileContentType=bidang.ContentType
nilai file=bidang.nilai
akhir pilih
Berikutnya
'---------------
jika nama file<>"" dan fileContentType<>"image/gif" dan
fileContentType<>"image/pjpeg" maka
%>
<tengah>
<br><br>
<font color=red size=3>上传的foto foto应该为GIF或JPG文件！</font><br><br>
<input type="button" value="重填" onclick="history.go( -1 );return
true;">
</pusat>
<%
kalau tidak
'------------
'开始输入
'-----------
respon.tulis sss
respon.tulis"<br>"
respon.tulis fff
set rs=server.createobject("ADODB.recordset")
sql = "pilih * dari tb yang nilainya nol"
rs.Buka sql, samb.,3,3
rs.tambahkan baru
rs("penulis")=nama pengguna
rs("teks")=sss
rs("tipe")=fff
rs("memukul")=1
rs("waktu pasca")=sekarang()
rs("foto").tambahkan nilai file
rs.update
rs.tutup
%>
<br><br>
<center><font color=red
size=3>成功输入个人基本档案！</font><br><br><form method="post"
action="personinf.asp"><input type="kirim" nilai="返回"></form>
</pusat>
<%
berakhir jika
berakhir jika
%>
showpic.asp
<!--#include file="conn.asp"-->
<%
id=Permintaan("id")
setel rs=server.CreateObject("adodb.recordset")
sql="PILIH * DARI tb di mana theid="&id
rs.Buka sql, samb., 1,3
respon.contenttype="gambar/gif"
Response.BinaryWrite rs("foto")
%>