⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 biaotisetsave.asp

📁 FlashPicViewer电子相册 v2.6 繁体中文版
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!--#include file="user.asp" -->
<%
if ((session("flash_name")<>user_name) or (session("flash_pass")<>user_password)) then 
response.write "FPV by Yellowboy&Chipiano!"
else
%>
<!--#include file="conn.asp"-->
<%
picdir=request("picdir")
picname=request("picname")
title=request("title")
info=request("info")
down=request("down")
pinglun=request("pinglun")
kuoinfo=request("kuoinfo")
set conn=server.createobject("adodb.connection")
conn.open MM_hs_STRING
set rs=server.createobject("adodb.recordset")
sql1 = "SELECT * FROM pic WHERE picdir='" & picdir & "' AND picname='" & picname & "'"
rs.open sql1,Conn,2,2
if not rs.eof then
rs("title")=title
rs("info")=info
rs("down")=down
rs("pinglun")=pinglun
rs("kuoinfo")=kuoinfo
rs.update
rs.close
set rs=nothing
response.Write("&SendOK=1")
else
sql2="insert into pic (picdir,picname,title,info,down,pinglun,kuoinfo) values ('"&picdir&"','"&picname&"','"&title&"','"&info&"','"&down&"','"&pinglun&"','"&kuoinfo&"')"
conn.Execute (sql2)
conn.close
set conn=nothing
response.Write("&SendOK=1")
end if
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -