📄 cjxgh.asp
字号:
<%
if Session.Contents("wen")=true then
%>
<!--#include file="conn.asp"-->
<body bgcolor="#FFFFFF" text="#000000" background="bg01.gif">
<%
dim n
vgws=request("vgws")
vgws=Lcase(vgws)
n=len(vgws)
a=1
do while a<n+1
if a mod 4=1 then
vg=vg+chr(asc(mid(vgws,a,1))-5)
end if
if a mod 4=2 then
vg=vg+chr(asc(mid(vgws,a,1))-4)
end if
if a mod 4=3 then
vg=vg+chr(asc(mid(vgws,a,1))-3)
end if
if a mod 4=0 then
vg=vg+chr(asc(mid(vgws,a,1))-2)
end if
a=a+1
loop
dim rs
dim sql
set rs=server.createobject("adodb.recordset")
sql="select * from cjgk where bh=5"
rs.open sql,conn,3,3
conn.execute("update [cjgk] set cjgk='"&vg&"' WHERE bh=5")
rs.close
set rs=nothing
n=len(vg)
a=1
do while a<n+1
if a mod 4=1 then
vg1=vg1+chr(asc(mid(vg,a,1))+5)
end if
if a mod 4=2 then
vg1=vg1+chr(asc(mid(vg,a,1))+4)
end if
if a mod 4=3 then
vg1=vg1+chr(asc(mid(vg,a,1))+3)
end if
if a mod 4=0 then
vg1=vg1+chr(asc(mid(vg,a,1))+2)
end if
a=a+1
loop
%>
<center>修改成功！<br></center>
<%
else
%>
<body bgcolor="#FFFFFF" text="#000000" background="bg01.gif">
<%
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -