不是我做的一个留言板
源代码在线查看: photoedit.asp
bg_id=1
%>
SL_open(735,400);
web_id="../language/"&l_id
web_id=web_id&"/WELCOM_MSG.ASP"
call include(web_id)
web_id="../language/"&l_id
web_id=web_id&"/CHECK.ASP"
call include(web_id)
%>
function checkform(){
if (document.form1.phototitle.value.length==0){
alert("");
document.form1.phototitle.focus();
return false;
}
if (document.form1.photocomment.value.length>200) {
alert("");
document.form1.photocomment.focus();
return false;
}
return true
}
//-->
photoid=request.QueryString("id")
group=request.QueryString("group")
if request.Form("method")="submit" then
phototitle=trim(request.Form("phototitle"))
photocomment=trim(request.Form("photocomment"))
photoid=trim(request.Form("id"))
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from photo where photoid="&photoid
rs1.open sql1,conn,3,3
rs1("phototitle")=phototitle
rs1("photocomment")=photocomment
rs1.update
rs1.close
set rs1=nothing
IF group="admin" THEN
log_url="../class_admin/admin_photo.asp?sid=相册管理"
log_msg=L_WELCOM_MSG5
else
log_url="../main/user_photo.asp?sid=我的相册"
log_msg=L_WELCOM_MSG5
end if
%>
else
set rs=server.CreateObject("adodb.recordset")
sql="select * from photo where photoid="&photoid
rs.open sql,conn,1,1
phototitle=trim(rs("phototitle"))
photocomment=trim(rs("photocomment"))
photoid=trim(rs("photoid"))
%>
function FrontPage_Form1_Validator(theForm)
{
if (theForm.phototitle.value == "")
{
alert("");
theForm.phototitle.focus();
return (false);
}
if (theForm.phototitle.value.length > 20)
{
alert("");
theForm.phototitle.focus();
return (false);
}
if (theForm.photocomment.value == "")
{
alert("");
theForm.photocomment.focus();
return (false);
}
if (theForm.photocomment.value.length > 200)
{
alert("");
theForm.photocomment.focus();
return (false);
}
return (true);
}
//-->
' -----------------------------------------------------------------
call mon(y)
RESPONSE.WRITE ""
RESPONSE.WRITE ""
RESPONSE.WRITE "『"&left(trim(rs("phototitle")),6)&"...』"
RESPONSE.WRITE LEFT(Trim(rs("photocomment")),10)
RESPONSE.WRITE " "
%>
RESPONSE.WRITE ""
RESPONSE.WRITE ""
RESPONSE.WRITE ""
RESPONSE.WRITE L_CLASS_UPUSER&":"&trim(rs("photouser"))
RESPONSE.WRITE ""&trim(rs("phototime"))
RESPONSE.WRITE mon_foot&""
' --------------------------------------------------------------------
%>
:
:
()
SL_close()