【调度系统】广东民航医疗快线调度系统源代码
wlzboy
2025-09-06 2decf5219e3476e30095fd9dbf6e49c55e105563
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<%
msg_signature=request("msg_signature")
timestamp=request("timestamp")
nonce=request("nonce")
echostr=request("echostr")
 
'连接数据库
Set objConn = Server.CreateObject("ADODB.Connection")
'objConn.ConnectionString="Provider=SQLOLEDB.1;Password=1382929319;Persist Security Info=True;User ID=sa;Initial Catalog=GBR;Data Source=192.168.0.250;Connect Timeout=60"
'objConn.ConnectionString="Provider=SQLOLEDB.1;Password=1382929319;Persist Security Info=True;User ID=sa;Initial Catalog=GBR_B2b;Data Source=61.142.253.51;Connect Timeout=60"
objConn.ConnectionString="Provider=SQLOLEDB.1;Password=1382929319;Persist Security Info=True;User ID=sa;Initial Catalog=GBR_B2b;Data Source=120.24.159.70;Connect Timeout=60"
objConn.Open
 
sql="insert into GBR.dbo.Article (ArtWeb,ArtName,ArtContent,ArtType,ArtThemesID) values ('AusImmigrant','企业号测试','"&echostr&"','资讯',19)"
objConn.Execute sql
 
%>
 
<%=echostr%>