p_send.asp

此文件为一个电子同学录

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/chkinput.asp" -->
<%
'=========================================================
' File: p_index.asp
 ' Date: 2006-04-06
' Script Written by Leibo
'=========================================================
' Copyright (C) 2002,2008 Mathren.com. All rights reserved.
' Web: http://www.hrbyydz.com
' Email: [e-mail]
'=========================================================

dim picid,classname
dim currentPage,totalrec,Pcount,page_count,endpage
dim abgcolor
dim PhotoPath,MaxPhotoSize,FormName,picinfo,picset,classid,fileExt,path,datetime,ranNum
dim filename

stats="上传照片"
if not founduser then
  	errmsg=errmsg+"<br>"+"<li>您没有<a href=login.asp target=_blank>登录</a>。"
	founderr=true
end if
if Cint(GroupSetting(19))=1 then
	Errmsg=Errmsg+"<br>"+"<li>您没有上传照片的权限，请<a href=login.asp>登陆</a>或者同管理员联系。"
	founderr=true
end if

PhotoPath=""&txl_info(12)&""
MaxPhotoSize=""&txl_set(23)&""

if founderr then
	call head()
	call head_var("错误信息",Request.ServerVariables("HTTP_REFERER"))
	call txl_error()
else
	call head()
	call head_var("班级相册","p_index.asp")
	if founderr then
		call txl_error()
	else
		if request("action")="upload" then
			call uploadphoto()
		else
			call upform()
		end if
		if founderr then call txl_error()
	end if
end if
call foot()

sub upform()
abgcolor="tablebody2"
%>
<!--#INCLUDE FILE="inc/sendnow.inc" -->
<div id="sponsorAdDiv" style="visibility:hidden">
<table width="400" height="50" bgcolor="#ce0000" border=0 cellspacing=1>
<tr>
<td align=center>
<table width="100%" height="100%"  border=0 cellspacing=0>
<tr>
<td class=tablebody1 align=center><font color=#ff0000>正在上传图片，请稍候......</font></td>
</tr>
</table>
</td>
</tr>
</table>
</div>

<table width="<%=txl_body(0)%>" cellpadding="0" cellspacing="0" align="center" style="border:1px <%=txl_body(9)%> solid; border-top-width: 0px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 1px;">  
<tr> 
<td width=120 bgcolor=<%=txl_body(10)%> align="center" valign="top">
<br>
<a href=p_send.asp><img src="<%=txl_info(6)&txl_skinpic(10)%>"  height="25" border=0></a> <br><br>
<a href=p_my.asp><img src="<%=txl_info(6)&txl_skinpic(11)%>"  height="25" border=0></a> <br><br>
<a href=p_order.asp><img src="<%=txl_info(6)&txl_skinpic(12)%>"  height="25" border=0></a><br><br><br>
<%
	set rs=server.createobject("adodb.recordset")
	sql="select classid,classname,classinfo from imgclass order by classid"
	rs.open sql,conn,1
	if rs.eof and rs.bof then
		response.write "<p>还没有设定班级照片类别</p>"
	else
		do while not rs.eof	
	response.write "<a href=""p_more.asp?classid="&rs("classid")&""" title="""&rs("classinfo")&"""><img src="""&txl_info(7)&"dot02.gif"" border=0>&nbsp;"&rs("classname")&"</a><br><br>"
		rs.movenext
	loop
	end if
%>
</td>
<td width=* valign="top"><br>
<table width="95%" cellpadding="5" cellspacing="1"  class=tableborder1>
<form name="frmupload" action="p_send.asp?action=upload" method="post"  enctype="multipart/form-data" onsubmit="submitonce(this);initAd();">
<tr>
<th height=25 colspan=2>上 传 照 片</th>
</tr>
<tr>
<td class=tablebody1 height="25" colspan=2>
<table width=100% border=0 cellspacing=6 cellpadding=6>
<tr>
<td><SPAN style="FONT-SIZE: 9pt; line-height: 150%;"><b>注意事项：</b><BR>1、请不要在此发布不健康、不文明的有害信息，一经发现，立即删除！<BR>2、请尽量上传与班级有关的照片，且注意上传照片的分类。<BR>3、仅接受.jpg 
                                  和.gif格式的图片，且文件名必须以<font color=<%=txl_body(20)%>>.jpg</font>或<font color=<%=txl_body(20)%>>.gif</font>为后缀。<br>4、上传照片的宽度和高度不要过大，最佳效果为：<font color=<%=txl_body(20)%>>500 * 600</font>，大小不超过<font color=<%=txl_body(20)%>><%=MaxPhotoSize/1024%>K</font>字节。<BR>5、照片默认为“完全可见”，如果选择“成员可见”，将只有班级成员才能看到。</SPAN></td>
</tr>
</table>
</td>
</tr>
<tr>
<td class=tablebody2 height="25" align=right><b>用 户 名&nbsp;</b></td>
<td class=tablebody1>&nbsp;&nbsp;<input name=realname value=<%=membername%>>&nbsp;&nbsp;<font color=#ce0000>* </font><a href=register.asp>您没有注册？</a></td>
</tr>
<tr>
<td class=tablebody2 height="25" align=right><b>密